>>204
"Taintモード" でgoogle検索ってのはどうだ？

204みたいな場合だと、
my $mode;
my $m = $ARGV[0] || $ENV{QUERY_STRING};
for my $s qw(aaa) {
$mode = $s if $m eq $s;
}
print $::{$mode} ? $::{$mode}() : "undefined\n";
sub aaa { "im aaa\n";}

あたりでの汚染除去が無難という気がする。