#! /usr/local/bin/perl

use strict;
use warnings;
use diagnostics;

die unless chdir "/path/directory";
die unless opendir DIR, '.';
foreach my $file (grep {-f && (14 < -M)} readdir DIR) {
#    print $file,"\n";
    rename $file, ".$file";
#    system("mv", $file, ".$file");
}
closedir DIR;