#!/usr/bin/perl use strict; use IO::Socket; use IO::Select; use Getopt::Std; my %option;getopts('lp:', %option); # listen on local port if( defined $option{'l'} ) { if( !defined $option{'p'} ) { &Usage( ); ); } my $port = $option{'p'}; my $listen = I…