$FILENAME=shift;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=
stat($FILENAME);
($fsec,$fmin,$fhour,$fmday,$fmon,$fyear,$fwday,$fyday,$fisdst) = localtime ($mtime);
$fyear=$fyear+1900;
$fmon++;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =	localtime(time);  
$year=$year+1900;
$mon++;
open (INFILE,$FILENAME);
while (<INFILE>) {
	chomp;
	if (m/(^[0-9]{2})/) {
		$RecordCount++;
		$STATS{"$1"}++;
		@Record=split(",",$_);
		if ($Record[0] eq '01') {
			$CREATE_DATE="20$Record[3]";
			$DATESTRING=sprintf("%04d%02d%02d",$year,$mon,$mday);
			if (($DATESTRING-$CREATE_DATE)>2){
				$WARNINGS{"01 Date looks old"}++;
				
			};
		};
# etc.