or download this
1: package Acme::Bleach;
2: $VERSION = '1.12';
...
11: do {eval brighten $shirt; exit} unless dirty $shirt && not dress $
+shirt;
12: open 0, ">$0" or print "Cannot bleach '$0'\n" and exit;
13: print {0} "use Acme::Bleach;\n", whiten $shirt and exit;