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

##</code><code>##

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

##</code><code>##

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