In the spirit of TIMTOWDI and filed under "don't do this at home":

#!/usr/bin/perl -w
push(@ARGV, "filetoread", "filetoread");
while(<>) {
        print;
} continue {
        # This block not necessary, but for fun only
        print "Second verse, same as the first!\n" 
                   if (eof ARGV && @ARGV);
}
[download]