Question 3: Behind the scenes
use Lingua::EN::Numbers qw(num2en);
system "rm -rf work; mkdir work";
chdir("work");
system "base64 < ../we-like-the-moon.png > data.b64";
system "split --lines=65 data.b64 part-";
mkdir("pages");
my $i = 1;
for my $input_file (glob("part-??")) {
my $output_file = "pages/page-" . num2en($i) . ".pdf";
system "cat $input_file | enscript -o - --margins=60:60:60:60"
. " | ps2pdf12 - > $output_file";
$i++;
}
system "zip pages.zip pages/*pdf";
system "xxd pages.zip > data.xxd";
system "gzip data.xxd";
system "uuencode data.xxd.gz mmmmm-tasty-tasty-data > 03-mooooon";