$ perl -E 'say "Args (@ARGV): ", 0+@ARGV' A B C
Args (A B C): 3