Select Code to Download

use Data::Dumper;
...
...
my $res = $ua->get(...);
print Dumper $res;
...

c:\@Work\Perl>perl -wMstrict -le
"{ package Foo;
...
Real Thing: bless({ foo => "bar", hi => "lo", show_progress => "not so
+ fast" }, "Foo")
A: not so fast
B: not so fast