Ways of Seeing... code

How to use:
Let's say you have a perl code called 'my_script.pl'
perl printer.pl my_script.pl
This generates a new file named my_script_printered.pl Run it with:
perl my_script_printered.pl
Will also work with php scripts, i.e. my_script.php
perl printer.pl my_script.php
php -f my_script_printered.php
#!/usr/bin/perl
$file = @ARGV[0];
open FILE, $file;
$file =~ s/\./_printered\./;
open NEWFILE, '>'.$file;
while(<FILE>){
       print NEWFILE $_;
       print NEWFILE 'print \''.$_.'\';';
}
close(NEWFILE);
close(FILE);