#!/usr/local/bin/perl
# UDP line echo server on (run it on csciun1)
# Peter Walsh csci 460

use IO::Socket;

$sock = new IO::Socket::INET (
                              LocalHost => '',
                              LocalPort => '7072',
                              Proto => 'udp',
                              Reuse => 1
                              );
die "Could not create socket: $!\n" unless $sock;

$num=0;
while (1) {
   $sock->recv($buff,128);
   $sock->send($buff);
   print "$buff \n";
   $num++;
   last if ($num==3);
}

close($sock);