Select Code to Download

#!/usr/bin/perl -w
use threads ('yield',
...
}

main();

$ telnet 0 9000
Trying 0.0.0.0...
...
Command: sleep
Command: quit
Closing connection