Select Code to Download

#!/usr/bin/perl
...
close PIPE or die " Cannot close pipe : $!";
print "Wrote $count lines of text \n";

#!/usr/bin/perl
use strict;
...
  last unless defined (my $line = <>);
  warn " Read_three,got $line\n";
}