Perl programming in morse code
use Acme::Morse; print "S-O-S\n";
The first time you run a program under \*(C`use Acme::Morse\*(C', the module converts your program to Morse code. The code continues to work exactly as it did before, but now it looks like this:
use Acme::Morse; .--.-..--..---.-.--..--.-..--..---.-.--. .-.-........---..-..---.-..-.--..---.--. ..-.---......-...-...-..--..-.-.-.--.-.. ----..-.-.--.-..--..-.-...---.-..---.--. .-...-..--.---...-.-....
Acme::Morse could not access the source file to modify it. Acme::Morse could not access the source file to execute it.
Damian Conway (as if you couldn't guess)
Copyright (c) 2001, Damian Conway. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)