#!/usr/bin/perl -Tw
use strict;
use Socket;
socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
bind(Server, sockaddr_in(80, INADDR_ANY)) || exit 1 ;