Select Code to Download

#!/usr/bin/perl

...
my $thread = threads->create('worker')->detach();
print("Press Ctrl-C to exit\n");
sleep() while 1;