#!/usr/bin/perl --
use strict; use warnings;
Main( @ARGV );
exit( 0 );
sub Main {
    for my $dir ( @_ ){
        chdir $dir or die $!;
        Fudge( $dir, glob '*' );
    }
}
sub Fudge {
    my $dir = shift;
    my $count = @_;
    print "$dir => $count \n";
}