Select Code to Download

$ perl delight.pl
Bareword found where operator expected at delight.pl line 21, near "#l
+ine 3 is now "something"
  (Might be a runaway multi-line "" string starting on line 19)
...
        (Missing semicolon on previous line?)
syntax error at delight.pl line 21, near "#line 3 is now "something "
Can't find string terminator '"' anywhere before EOF at delight.pl lin
+e 21.

$ perl delight.pl
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 13
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 27
END failed--call queue aborted at delight.pl line 33.

#!/usr/bin/perl -l --
# really ensures warnings
...
    #really clears and empties everything.
    }     }    }     }
__END__

Uncaught exception: Can't unlink('file.txt'): No such file or director
+y at realdelight.pl line 14.
    main::__ANON__('file.txt') called at (eval 49) line 28
...
    eval {...} called at C:/perl/site/5.14.1/lib/Carp.pm line 101
END failed--call queue aborted at realdelight.pl line 101.