count the number of command-line arguments in perl

argcount.pl

#!/usr/bin/perl

use strict;

sub arrcount {
	my ($arr) = @_;
	my $c = 0;
	foreach my $str (@{$arr}) {
		++$c;
	}
	return $c;
}
my $count = &arrcount(\@ARGV);
print "$count arguments\n";