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