{...}
Bernie-7-PC: Host 'shell02.theworld.com' is known and matches the host key.
Bernie-7-PC: Verifying server signature.
Bernie-7-PC: Send NEWKEYS.
Bernie-7-PC: Waiting for NEWKEYS message.
Bernie-7-PC: Enabling encryption/MAC/compression.
Bernie-7-PC: Sending request for user-authentication service.
Bernie-7-PC: Service accepted: ssh-userauth.
Bernie-7-PC: Trying empty user-authentication request.
Bernie-7-PC: Authentication methods that can continue: publickey,keyboard-inter
ctive.
Bernie-7-PC: Next method to try is publickey.
Permission denied at D:\Desktop\sshtest.pl line 15.


##</code><code>##

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}) ;