my $expectREF = Expect->new (); $expectREF->debug (2); $expectREF->raw_pty (0); $expectREF->log_user (0); $expectREF->spawn ($command); $expectREF->expect (undef, "Password: "); $expectREF->send ("$pword\n"); $expectREF->interact (\*STDIN, 'EOF');