my $ssh = Net::SSH::Perl->new("shell02.theworld.com", 
                               protocol => 2,
                               debug=>1,
                               strict_host_key_checking => "no",
                               options => ["PasswordAuthentication yes"]
                             ) ;
$ssh->login($login{user}, $login{password}) ;