my @everyfile = (
    glob( "C:/input/*.htm" ),
    glob( "C:/input/*.doc" ),
    glob( "C:/input/*.pdf" ),
);

my @oldfile = grep -M > 3, @everyfile;

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