use strict;
my $numargs = @ARGV;
print "numargs = $numargs\n";
if ( $numargs > 0 )
{ for my $a ( @ARGV ) { print "  $a\n"; } }

##</code><code>##

testarg a b c

##</code><code>##

numargs = 0