my $ssh = Net::SSH::Expect->new (host => "ip addr",
                                 password=> 'pwd',
                                 user => 'username',
                                 raw_pty => 1);