if (arguments_ok(@ARGV)) {
   # do something
} else {
   # complain loudly
}

##</code><code>##

system($^X, "some_script.pl", @ARGV);