FILE_LIST=`ls *.wrk`
for FILE in $FILE_LIST
do
	logit "COPYING $FILE TO $TGT_DIR"
	cp $FILE $TGT_DIR
	logit "PROCESSING $FILE FOR GROUP1"
	perl /some/other/script.pl <$FILE >>TMPOUT 2>>err.rpt
	rm -f $FILE
done

##</code><code>##

cd $TGT_DIR
FILE_LIST=`perl /rename/by/id.pl $FILE_NAME`
for FILE in $FILE_LIST
do
if perl /some/compliance/checks.pl $FILE  2>/dev/null >$FILE.ERR
then
	cp -f $FILE archive
	cp -f $FILE out
else
	logit "$FILE WAS MALFORMED:\n `cat $FILE.ERR`"
	mail -s "FILE $FILE INCOMPLETE, NOT SENT" $NOTIFY <<EOF
FILE $FILE NOT SENT BECAUSE:
`cat $FILE.ERR`
EOF
fi

##</code><code>##

$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.