To add to the above, the equivalent of listening using netcat (netcat -l) to push data is

   1: #!/usr/bin/perl -w
   2: # No nc -l on SunOS 5.8 DMZed host to transfer data out.
   3: # Perl to the rescue:
   4: 
   5: use strict;
   6: use IO::Socket;
   7: 
   8: select IO::Socket::INET->new(LocalPort=>(shift||2222), Listen=>1
+)->accept; 
   9:
  10: print
  11:   for <>;
  12: 
  13: __END__
  14: # or, as a oneliner:
  15: perl -MIO::Socket -pe 'BEGIN{select IO::Socket::INET->new(LocalP
+ort=>(shift||2222), Listen=>1)->accept;}'
[download]