Select Code to Download

#!/usr/bin/perl

...
$cmd="perl -pi -e s\'\/^\\s+\/\/'g $file";
print "$cmd\n";
system($cmd);

open(DATA, "$file");
while(<DATA>){
...

}