Select Code to Download

sub thread {
   my $val = shift;
...
       sleep $delay;
   }
}

#!/usr/bin/perl
use warnings;
...
print "Hit enter to exit\n";
<>;