Select Code to Download

my $count =0;
...
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";
}