Select Code to Download

#!perl -w
# usage: showerr.pl port
...
  print while <$readport>;
  print "Connection closed at ", scalar(localtime), "\n";
}

#!perl -w
use IO::Socket;
...
print STDERR "testing\n";

sleep(10);