#!/usr/bin/perl
use strict;
my $mode = $ARGV[0] || $ENV{QUERY_STRING};
print "Content-type:text/plain\n\n" if exists $ENV{QUERY_STRING};
print $::{$mode} ? $::{$mode}() : "undefined\n";
sub aaa { "im aaa\n";}

このスクリプトをsetuid+CGI経由で実行すると
Can't coerce GLOB to string in cond_expr at hoge.cgi line 5.
と怒られてしまうのですが何かグッドアイディアはありませんでしょうか。