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

my $socket = IO::Socket::INET->
   new( 'PeerAddr' => "localhost",
	'PeerPort' => $PORT,
	'Proto' => 'tcp')
or die "Second: Can't create socket to Third($!)\n";