Help for this page
sub thread { my $val = shift; ... sleep $delay; } }
#!/usr/bin/perl use warnings; ... print "Hit enter to exit\n"; <>;