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

##</code><code>##

#!/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__

##</code><code>##

	#!/bin/perl

	die "Usage: euthanasia directory days" unless $#ARGV == 1;

	($dir, $days) = @ARGV;		# assign array to list of variables

	die "Can't find directory $dir" unless chdir $dir;

	open(goners,"find . -mtime +$days -print|") || die "Can't run find";
	while (<goners>) {
	    chop;
	    unlink;
	}

##</code><code>##

#!/usr/bin/perl

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

BEGIN {
    my $name = basename $0; 
    sub USAGE () { "Usage: $name <directory> <days>\n" }
}

die USAGE unless @ARGV == 2;
my ($dir, $days) = @ARGV;

find { no_chdir => 1,
       wanted => sub { unlink if -f -M > $days } }, $dir;

__END__