my @htm_files = glob "C:/input/*.htm";
my @doc_files = glob "C:/input/*.doc";
my @pdf_files = glob "C:/input/*.pdf";

my @bigarray = (@htm_files, @doc_files, @pdf_files);

foreach my $file (@bigarray) {
	if (-M $file > 3) {
		print "Delete files older than 3 days?  [Y or N] \n";
		chomp ($cleanup = <STDIN>);
			if ($cleanup =~ /Y/i) {
				unlink $file;
				} else {
				print "\n      <<No files deleted at this time>>\n";
			}
	}
}