#!/usr/bin/env perl 
use strict;
use warnings;
use HTTP::Cookies;

my $jar = HTTP::Cookies->new(file => 'cookies.tmp.txt');
my $nsjar = HTTP::Cookies::Netscape->new(file => 'netscape');
my $copy = sub {$nsjar->set_cookie(@_)};
$jar->scan ($copy);
$nsjar->save;