Select Code to Download

Use Net:SSH2;
<snip>
...
    $ssh2->scp_get($remote, $local);
    alarm (0);
};

eval {
    local $SIG{ALRM} = sub { die "alarm\n"; };
...
    alarm (0);
};
print "Timed out.\n" if ($@);