#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use 5.010;

find { no_chdir => 1,
       wanted => sub { unlink if -f -M > 14 } }, '.';

__END__