Use Net:SSH2;
<snip>
$ssh2 = Net::SSH2->new();
<snip>
$ssh2->connect($host,$port);
<snip>
$ssh2->auth_password($os_user,$os_pass);
<snip>
eval {
	local $SIG{ALRM} = sub { die "alarm\n"; };
	alarm (10);
	$ssh2->scp_get($remote, $local);
	alarm (0);
};