#!/bin/perl open(goners,"find . -mtime +14 -print|"); while () { chop; unlink; }