Select Code to Download

my $sock = new IO::Socket::INET (
LocalAddr => 'localhost',
...
die "$!" unless $sock;
my $new_sock = $sock->accept();
close ($sock);