• you would get the error Undefined subroutine &main::login had you called 'login' as a function:

      login("xxxx","xxxx");
  [download]

  If your $ssh object was undefined, you would get the error

  Can't call method "login" on an undefined value
  [download]

• the call to the login method occurs at line 4, not line 6
• since you haven't defined $hostname you ought to get the error:

  Net::SSH: Bad host name:   at foo.pl line 3
  [download]

Furthermore, it's a good idea to ping the machine first, and then attempt to ssh into it.

Last but not least don't double-quote single variables as in the useless interpolation

    Net::SSH::Perl->new ("$hostname");
[download]

Say rather

    Net::SSH::Perl->new ($hostname);
[download]

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}