Help for this page
use strict; use Socket; ...
#! /usr/bin/perl -w ... close SOCKET or die "close: $!";