Select Code to Download

#!/usr/bin/perl

eval {
...
if ($@ =~ /Timed Out/i) {
    print "Timed-Out waiting for infinite loop to finish\n";
}