Select Code to Download

/* i don't browse full screen to have a small textarea :) */
textarea { width: 100%; height: 300px; }
...

/* I like a little feedback now and then */
a:hover { color: blue; }

use constant HAS_MODPERL    => eval { require Apache;  };
unless ( HAS_MODPERL ) {
   require CGI;
}

use vars qw($request %Args);
$request = HAS_MODPERL ? Apache->request : new CGI;
%Args    = HAS_MODPERL ? $request->args : $request->Vars;

&output(\$out, $request) and exit;

sub output {
   my $out = shift;
...
   }
   print $out;
}