login("xxxx","xxxx");

##</code><code>##

Can't call method "login" on an undefined value

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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