Select Code to Download

#!/usr/bin/perl -w
use strict;
...
select(IO::Socket::INET->new(PeerAddr => shift, PeerPort => shift) or 
+die "Couldn't connect: $!");
print
  for <>;

#!/usr/bin/perl -w
use strict;
...
my $c = $s->accept;
print
  while <$c>;