my $nargs = @ARGV; print "Number of command line arguments is $nargs\n";