#!perl
use IO::Socket::INET;

$server = IO::Socket::INET->new("127.0.0.1:90");

while (<$server>) {
	print;
}

close $server;