my $socket = IO::Socket::INET->new( LocalPort => $PORT,
Proto => 'tcp',	Listen => 2)
or die "Can't create socket on port $PORT to Second($!)\n";

while (<FILE>) 
{
    print $socket $_;
    
    if(my $second = $socket->accept())
    {
    	#if someone sends me something, do something with it
    	#then go back to sending the rest of the file
    }
}