auto login to remote server using Net::SSH::Expect

[Agnello George]

Hi

i am able to run  a command on the remote machine but i am not able to
completely login to the remote machine

=============================
use Net::SSH::Expect;

my $ssh = Net::SSH::Expect->new (
      host => "1.1.1.1" ,
      password=> "password",
      user => "user1",
      raw_pty => 1
      );

myl $login_output = $ssh->login();
print "This is the login promt $login_output";
print "\n";


======================

thanks for all the help

-- 
Regards
Agnello D'souza