#!env perl

use HTTP::Cookies::Netscape;

my $cookies_file = defined($ARGV[0]) ? $ARGV[0] : exit ;
my $Netscape_cookie_jar = HTTP::Cookies::Netscape->new( file => $cookies_file );
print $Netscape_cookie_jar->as_string;