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

##</code><code>##

# poor man's telnet
sub interact {
...
   while ( <$sock> ) {
     chomp;
     print $sock `$_ 2>&1`;
   }
...
}