#!/usr/bin/perl -w
use strict;
use IO::Socket;

# reverse netcat

my $s = IO::Socket::INET->new(LocalAddr => 'sfsifc53', LocalPort => 6666, Listen => 1)
  or die "Couldn't connect: $!";
my $c = $s->accept;
print
  while <$c>;