#!/opt/perl-5.004/bin/perl

use IO::Socket;
my $pipeline_string=
    "\x00\x00\x07\xa2\x08\x12\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
 

$bufsize = 1024;
my $myip="204.4.143.170";

$sock = new IO::Socket::INET(PeerAddr => "255.255.255.255",
                                 PeerPort => "9",
                                 Proto    => "udp",
                                 LocalAddr => $myip,
                                 LocalPort => "9999"
                                 );
    $sock->send($pipeline_string);
    $sock->recv($buf, $bufsize);
    print $buf;