One way to do it:

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).'.'.$pre
+f;
}
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);