# from perldoc perlipc

eval {
    local $SIG{ALRM} = sub { die "alarm clock restart" };
    alarm 10;
    
    # ftp op here
    
    alarm 0;
};
if ($@ and $@ !~ /alarm clock restart/) { die }