use Data::Dumper;

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