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