There is almost nothing above that CGI supports. For example, one of your last lines would be done with something like:   print $file "    ",$q->x:ProtectScenarios("True"),"\n"; but CGI doesn't support that (and Perl can't parse that syntax). Even if you go out or your way:

    use CGI qw( -any );
    my $q= CGI->new();
    my $tag= "x:ProtectScenarios";
    print $q->NoSuchHtmlTag("False"), $/;
    print $q->$tag("True"), $/;
[download]

you get:

    <NOSUCHHTMLTAG>False</NOSUCHHTMLTAG>
    Goto undefined subroutine &main::CGI::
[download]

So, unless I'm missing some feature of CGI, I think you are mostly out of luck here.

(Note that the last error is due to CGI not being able to parse a function name out of "CGI::x:ProtectScenarios" which gets passed to its AUTOLOAD routine, and not from the strange syntax that I used.)

        - tye (but my friends call me "Tye")