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

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