Translate Netscape like cookies so you can use them in a perl script. Usefull for example when converting a shell/curl script to perl,[ what I'm doing right now ;-)]
Usage [perl] ./script.pl cookies_jar_file
#!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 => $cooki
+es_file, );
my $cookie_jar = HTTP::Cookies->new();
$Netscape_cookie_jar->scan(sub {$cookie_jar->set_cookie(@_)});
print $cookie_jar->as_string;