$a = new IO::Socket::INET (
        LocalHost => 'localhost',
        LocalPort => '80',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1,
        ) or die "Could not open socket $!";