my $exp = Expect->new("passwd fred") or die "Cannot spawn: $!\n";

$Expect::Exp_Internal = 1;

my $timeout = 5;

$exp->expect($timeout,
	     [ 
	      qr/UNIX password:/ => sub {
		my $exp = shift;
		$exp->send("sponge\n");
		exp_continue; 
	      } 
	     ],
	    );

$exp->soft_close();