Select Code to Download

#!/usr/bin/perl -w

use Alarm::Concurrent qw( setalarm );
...
} 2 or die "Outter timeout";

print "Everything's ok.\n";