Select Code to Download

open (IN, 'file.txt');
open (OUT, '>output.txt');
...
}
close OUT;
close IN;

#!/usr/bin/perl -i -p
# perl foo.pl file.txt
...
    $_ .= qq{char *point = new char[10];\n}
       .  qq{printf("complete..\n");\n};
}