Hi, a timeout of 1second is very little. ssh can sometimes take longer. Another thing is that the execution of sending the password should depend on a string having matched. It shouldn't be executed no matter what. Also: always use strict; use warnings; ...
A small working example:

use strict;
use warnings;
use Expect;
my $timeout = 5;
my $command = '/usr/bin/ssh';
my $user='johndoe';
my $host='192.168.47.11';
my $password = 'godsexpower';

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

$exp->expect($timeout, [ qr{password:} , sub {$exp->send("$password\n"
+)}  ]);
$exp->expect($timeout, [ qr{\$ } , sub {$exp->send("ls\n")}  ]);
$exp->expect($timeout, [ qr{\n*?\$ } , sub {print "got the output: '".
+ $exp->before()."'\n"}  ]);

$exp->soft_close();
[download]

This example expects the prompt of a host to end on '$ ' (DollarSpace), you might have a diffrent prompt(especially if the HPux box uses csh, then it's usually '> '). Hope this helps. Cheers Roland