.....
 
my $create_date = (stat(MLOG))[10];
   $creat = scalar localtime $creat;
     # create_date=Thu Apr 14 16:26:14 2005 
   $today=         localtime time;
     #today= same format
...