Select Code to Download

while(<$pipe>)
{
  read from pipe...
}

ted@skywalkerii ~
$ perl client.pl
...
while (my $receive = <$sock>) {
    print "Got: >$receive<\n";
}