use Data::Dumper;

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

##</code><code>##

use Data::Dumper;
my $obj_ref = bless {} , 'Any::Old::Perl::Identifier';
sub Any::Old::Perl::Identifier::make_hay{
    my ($self) = @_;
    $self->{'foo'} = 'hay';
}
$obj_ref->make_hay();
print ref $obj_ref, "\n";
print ref \$obj_ref, "\n";
print Dumper $obj_ref;

##</code><code>##

Any::Old::Perl::Identifier
REF
$VAR1 = bless( {
                 'foo' => 'hay'
               }, 'Any::Old::Perl::Identifier' );