#!/usr/bin/perl.exe
use IO::Socket;
use strict;
use warnings;
my $socket;

$socket = IO::Socket::INET->new(Proto => 'udp',
    PeerPort => 80,
    PeerAddr => "localhost") or die "opening port, $! ";
$socket->send("Hello");