Select Code to Download

#!/usr/bin/env perl
use strict;
...
close $IFH;

exit(0);

while((my $line = <>)) {

cat blockextract.txt | perl blockextract.pl