http://pallthayer.dyndns.org/spiritual_code
from the README:
"The items contained in this package are intended to allow software
developers to add a spiritual element to their code by embedding the
spirit of Pall Thayer within.
Use it well.

This page takes a random selection of 10 images that have been
generated by my "Self-Portrait"
(http://pallthayer.dyndns.org/self_portrait) project and "paints" them
together in a random fashion:
http://pallthayer.dyndns.org/self_portrait/randomsvg.php

An auto-generated-real-time-self-portrait.
http://pallthayer.dyndns.org/self_portrait/
Pall Thayer

The script isn't displaying correctly... the 'while' line is supposed to be the word 'while' followed by the less-than character, FILE, greater than character in parentheses, followed by an opening curly bracket.

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);