ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Пытаюсь написать простенький сервер))) Чтоб просто возвращал запрос в html обёртке. Проблема: не конектиться. И вообще ничего не print'ует.Может вечный цикл ему не по душе.

Хотя компилируется. Бред.

Подскажите

Код:

#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET 
	(
		PeerAddr => 127.0.0.1, 
   		PeerPort => 8080,
   		Proto => 'tcp',
		Listen => 1
   	) or die "$! fucking socket";
while(5==5)
{
 $sock->listen();
  print "<html>";
  print "<head> <title>Server Answer</title> </head>";
  print "<body>";
  $acc = $sock->accept();
	while(<$acc>)
	{
		print $_;
	}
  print "</body></html>";
  }