#!/usr/local/bin/perl
 
use IO::Socket;
 
my $url = 'localhost';
my $port = 6464;
 
my $error = 1;
my $sock ;
 
while ($error) {
   my $sock = new IO::Socket::INET (
	LocalHost => $url,
	LocalPort => $port,
	Proto => 'tcp',
	Listen => 1,
	Reuse => 1 );
 
    $error = 0 ;
    $error =1 unless $sock;
 }
 
 print "Listener Port Established \n";
 
 $error =1 ;
 while ($error) {
    my $new_sock = $sock->accept();
    $error =0 ;
    $error =1 unless $new_sock;
 }
 
 print "Connection Established \n";
 
 while (<$new_sock>) {
     print $_;
 }
 
 close($sock);