Select Code to Download

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

testarg a b c

numargs = 0