Select Code to Download

$SIG{ALRM} = \&Done;
alarm $timeout;             # Set your timeout here, in secs
...
   close(INPUT);
   exit 0;
}