#!/usr/sbin/perl use IO::Socket; if($ARGV[0] eq "-s") { $sukka=new IO::Socket::INET(LocalHost=>'localhost', LocalPort=>$ARGV[1], Proto=>'tcp', Listen=>1, Reuse=>1); die "Palvelinta ei saada päälle\n" unless $sukka; $uusi = $sukka->accept(); while(<$uusi>) { print $_; } close($sukka); exit(1); } if($ARGV[0] eq "-c") { $sukka=new IO::Socket::INET(PeerAddr=>$ARGV[1], PeerPort=>$ARGV[2], Proto=>'tcp'); die "Palvelin ei vastaa\n" unless $sukka; while() { print $sukka $_; } close($sukka); exit(1); } print "kissa.pl -s portti\n"; print "kissa.pl -c palvelin portti\n";