#!/usr/bin/perl -w
use strict;
use File::Find;
my @files;
find(sub{
        push @files, $File::Find::name if -M $_ < 1;
     },
     './misc');

print join "\n", @files;