018b11b7184972b286dfdcbfbd227c8b7be9a624
# Make a world-writeable directory for saving state.
# Decode the sample image.
unless (open UU
, "<$uu") { warn "Can't open $uu: $!\n"; next }
if (/^begin\s+\d+\s+(.+)$/) {
unless (open BIN
, "> $bin") { warn "Can't create $bin: $!\n"; next }
print BIN
unpack "u", $_;
# Create symlinks from *.txt to *.cgi for documentation purposes.
($target = $_) =~ s/cgi$/txt/i;
symlink $_, $target unless -e
$target;