sub socket_print {
    my ($socket, $message) = @_;
    print $socket $message;
}
[download]