3 # Make a world-writeable directory for saving state.
4 $ww = 'WORLD_WRITABLE';
11 # Decode the sample image.
12 for $bin (qw(wilogo.gif)) {
13 unless (open UU, "$bin.uu") { warn "Can't open $bin.uu: $!\n"; next }
14 unless (open BIN, "> $bin") { warn "Can't create $bin: $!\n"; next }
19 print BIN unpack "u", $_;
25 # Create symlinks from *.txt to *.cgi for documentation purposes.
27 ($target = $_) =~ s/cgi$/txt/;
28 symlink $_, $target unless -e $target;