If all you are interested in knowing is whether or not there are ANY arguments on the command line, then you might just as well look at the size of @ARGV:

my $nargs = @ARGV;
print "Number of command line arguments is $nargs\n";
[download]