Select Code to Download

print $jar->{COOKIES}{'example.com'}{'/'}{'JSESSIONID'}[1], "\n";

# ... as before, set $jar = ...

...

$jar->scan( \&callback );