#!/usr/local/bin/perl

$count = 1;
while ($count <= @ARGV) {
        if (-e $ARGV[$count-1] && -s $ARGV[$count-1] >
10000) {
      print ("File $ARGV[$count-1] is a big file!\n");
        }
        $count++;
}
