my $object = Expect->spawn("program");                  # 1
my $error = ($object->expect(30, 'password:'))[1];      # 2
die "$error\n" if ($error);                             # 3
print $object "incorrectpassword\r";                    # 4
$object->soft_close();                                  # 5