## Define ENV

 $ENV{"PATH"} = qq(/usr/epoch/bin:/usr/epoch/EB/bin:/usr/bin:/usr/sbin:/bin:/sbin);
 delete $ENV{"IFS"};
        
## Declare scalers for client templates and client tape logs

        my $scratches="/usr/local/log/scratch_tapes.log2";
        my $logf="/usr/epoch/EB/log/ebcat.log";

        open (FOO, ">$scratches") || die "could not open file:$!";
        open (D, "$logf") || die "could not open file:$!";
        while ( <D> ) {
                if (( /9840S/ ) && ( /"ebexpire, ebexpire"/ )) {
                        print $_ $scratches
                }
        }
        close (FOO);
        close (D);