Select Code to Download

# simple time service
sub interact {
...
    print $sock "It's: " . localtime . "\n";
...
}

# poor man's telnet
sub interact {
...
   }
...
}