Select Code to Download

use Data::Dumper;
(...)
...
# After our callback.
print $cookie_jar->as_string, "\n";
print Dumper(\%{$cookie_jar});

use WWW::Mechanize;
use HTTP::Cookies;
...

print $cookie_jar->as_string, "\n";