Perl - binding socket on port

gistfile1.sh

$ perl -mIO::Socket -e 'my $s = new IO::Socket::INET(Listen => 1, LocalAddr => "localhost", LocalPort => 8888, Proto => "tcp"); my $data = $s->accept(); while (<$data>) { print $_; } close($s);'

gistfile2.pl

#!/usr/bin/env perl

use strict;
use warnings;

use IO::Socket;


sub help {
	print STDERR "$0 <addr> <port>\n"
}

if (@ARGV != 2) {
	help();
	exit(255);
}

my $sock = new IO::Socket::INET(
	LocalAddr => $ARGV[0],
	LocalPort => $ARGV[1],
	Proto => 'tcp',
	Listen => 1) or die "$!";

my $data = $sock->accept();

while (readline $data) {
	print $_;
}

close($sock);
exit(0);