use IO::Socket; 
	
	my $sock = new IO::Socket::INET (
		LocalHost => '172.16.7.101',
		LocalPort => '7070',
		Proto => 'udp',
#		Listen => 1,
		Reuse => 1, 8 );
	die "Could not create socket: $!\n" unless $sock;

	my $new_sock = $sock->accept();
	while(<$new_sock>) {
		print $_;
	}
	close($sock);