#!/usr/bin/perl
use Expect;
$Expect::Exp_Internal = 1;

my $host = "10.227.2.20";
my $username = "root"; 
my $pass = "Pass1234";
my $expect = Expect->new;

my $expect = Expect->spawn("ssh $host -l $user") or die;
$expext->send("$pass");
$cmd = `ls`;
$expect->send("$cmd");
print "$expect\n";