Select Code to Download

#!/usr/local/bin/perl   -w
...
close(OUT);
close(IN);
print "No. of lines parsed $count";

# getting the source code from the file   
  
...
        print "$1 $2";  
    }  
}