Select Code to Download

#!perl -w
use strict;
...

my $q= CGI->new();
do_foo( is_admin => 0, foo => $q->param('foo') );

perl -w test.pl foo=1
perl -w test.pl foo=bar
perl -w test.pl foo=0&foo=is_admin&foo=yeah&foo=another_parameter&foo=
+yippieh