#!/usr/bin/perl
chdir('/home/archive/logs/old'); 
@FileNum = system("ls -t -al") ; 
chomp($month = 'date +"%b" --date "7 day ago"'); 
chomp($date = 'date +"%d" --date "7 day ago"'); 
foreach (@FileNum) { 
   if /how do I compar the date?? here { 
      system(" rm $_"); 
   } 
};