Select Code to Download

use strict;
use HTTP::Cookies;
...
use Data::Dumper;
warn "Cookies in jar:";
$cookie_jar->scan(sub { warn Dumper \@_ });

...
$VAR1 = [
...
        ];

...

$ cat mycookie-tomcat.cookie 
#LWP-Cookies-1.0