#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::IP;

my $socket = IO::Socket::IP->new(
    Proto    => "udp",
    PeerAddr => "remote.host.com",
    PeerPort => 12345
) || die "Cannot create client\n";

while(1) {
    print "PROMPT> ";
    my $message = <STDIN>;
    chomp $message;

    if (($message !~ /^q(?:uit)?$/i) && ($message !~ /^e(?:xit)?$/i)) {
        $socket->send($message)
    } else {
        last
    }
}
close($socket);