List All Files After A Given Day

#!/usr/bin/perl

#list files editted after a given day in a directory

use File::Find;
use File::stat;
use Time::localtime;

my $base_dir = "/proj/bbic3/h2/ap/APPS_TAG_02SEP2008";
my $base_date = "20090303";

open mod_list, ">mod_list";

find(\&do, $base_dir);

sub do {
/\.v$/ or return;
$filename = $_ ;
(-f $filename) or return;
$fullname = "$File::Find::dir/$filename";
if (file_modified($_)) {
print "Found: $fullname updated on $date_string\n";
print mod_list "$fullname\n";
}
}

sub file_modified {
$file = shift;
$date_string = ctime(stat($file)->mtime);
$date_string =~ s/^\S+\s//;
$date_string =~ s/\d+:\d+:\d+\s//;
$date_string =~ s/Jan/01/;
$date_string =~ s/Feb/02/;
$date_string =~ s/Mar/03/;
$date_string =~ s/Apr/04/;
$date_string =~ s/May/05/;
$date_string =~ s/Jun/06/;
$date_string =~ s/Jul/07/;
$date_string =~ s/Aug/08/;
$date_string =~ s/Sep/09/;
$date_string =~ s/Oct/10/;
$date_string =~ s/Nov/11/;
$date_string =~ s/Dec/12/;
$date_string =~ s/(\d+)\s(\d+)\s(\d+)/$3$1$2/;
return ($date_string gt $base_date);
}