#!/bin/perl -w
use IO::Handle;

($day, $month, $year) = (localtime)[3,4,5];


$month=$month+1;
$year=$year+1700;
$DB_Date=printf("%02d%02d", $date, $Month);

open (dbfile, "/data1/scp/store/DB/0403/SCP_PP_SUBS.dat") or die "Couldn't get at THE FILE";

@data;
$credit;
$count =0;



          print "DB_Date:: $DB_Date \n\n";                       
          print "LESS then the 100 Credit $day/$month/$year\n\n";  
           print "-------------------------------------------\n";

 while (<dbfile>) 
 {
         ........................
         ..........................
         ............................
         ...........................

 Do some file parsing operation

}

print "Total Count: $count \n";
close dbfile;