Help for this page
$SIG{ "ALRM"} = sub { print "TIME_OUT! at $timeout\n"; exit; }; alarm ($timeout);
require 5.002; require DBI; ... exit;