Select Code to Download

use Data::Dumper;

my $ssh = login($user, $pass, $host);
print Dumper $ssh;
print Dumper \$ssh;

use Data::Dumper;
my $obj_ref = bless {} , 'Any::Old::Perl::Identifier';
...
print ref $obj_ref, "\n";
print ref \$obj_ref, "\n";
print Dumper $obj_ref;

Any::Old::Perl::Identifier
REF
...
                 'foo' => 'hay'
               }, 'Any::Old::Perl::Identifier' );