edoceo

Using PERL like netcat

Here's a quick example of PERL that listens on a port and writes the sent data to STDOUT.

#!/usr/bin/perl

use IO::Socket;
my $sock = new IO::Socket::INET ( 
   LocalPort => '7070', 
   Proto => 'tcp', 
   Listen => 1, 
   Reuse => 1, 
);

die "Could not create socket: $!\n" unless $sock;

my $new_sock = $sock->accept();
while(<$new_sock>) { print $_; }
close($sock);

Loading Comments from Disqus...