$queuelength=1;

use Socket;
socket(HANDLE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$addr = sockaddr_in(80, INADDR_ANY);
bind(HANDLE, $addr);

listen(HANDLE,$queuelength);

while(true)
{
 print 'hallo1';
 accept(NEW_HANDLE, HANDLE);
 select(NEW_HANDLE);

 $line=<NEW_HANDLE>;

 print $line;
 print 'hello2';
}