Select Code to Download

use Msg;
use strict;
my $host = 'localhost';
...
        print "$msg\n";
    }
}

use Msg;
$conn = Msg->connect('localhost', 8080);
die "Error: Could not connect\n" unless $conn;
$conn->send_now("Message $i");
($msg, $err) = $conn->rcv_now();