#!env perl

use HTTP::Cookies::Netscape;
use HTTP::Cookies;

my $cookies_file = defined($ARGV[0]) ? $ARGV[0] : exit ;
my $Netscape_cookie_jar = HTTP::Cookies::Netscape->new( file => $cookies_file, );
my $cookie_jar = HTTP::Cookies->new();
$Netscape_cookie_jar->scan(sub {$cookie_jar->set_cookie(@_)});
print $cookie_jar->as_string;