Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    print $sock $data || die "What happened? $!";

}

$inet = IO::Socket::INET->new(
                              Proto => 'tcp',
...
                              Reuse     => 1
                             );
$socket = $inet->accept();