my $fname = '/your/path/File.txt';

if(-e $fname) {  
   my ($name, $pref) = split /\./, $fname;
   my @date = localtime; 
   rename $fname, $name.$date[3].($date[4]+1).($date[5]+1900).'.'.$pref;
}