my $dateNow      = POSIX::strftime( '%Y-%m-%d', localtime );
    my $backupSuffix = $dateNow . ".bak";
    ...
        my $backupFile = "$file-$backupSuffix";
        Replace( $file, $backupFile );