print $file "    ",$q->x:ProtectScenarios("True"),"\n";

##</code><code>##

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

##</code><code>##

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