Select Code to Download

$SIG{ "ALRM"} = sub { print "TIME_OUT! at $timeout\n"; exit; };
alarm ($timeout);

require 5.002;
require DBI;
...

exit;