#!/usr/bin/perl -w

use strict;
use Net::SSH::Expect;

my $host="myhost";
my $password="mypassword";
my $user="myuser";

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