my $argc = @ARGV;

print "There are $argc args.\n";