You could also write like this because webservers won't put stuff into @ARGV

my $query = @ARGV
            ? CGI->new({ @ARGV })
            : CGI->new;
[download]

Invoke as

system $^X, 'foo.cgi', qw/ key value key value /;
[download]