#!/usr/bin/env perl
print "arg count: ", scalar(@ARGV), "\n";