$timeout = 1;
$command = '/usr/bin/ssh';

@paramaters = ('servername','pwd');

$exp = Expect->spawn($command, @paramaters)
    or die "Cannot spawn $command: $!\n";

$exp->expect($timeout, [ qr/password/ ]);
$exp->send("password\n");

$exp->soft_close();