perl -e '$name = shift || die "name?!"; $dir = shift || "."; $time = shift || 1; while(<$dir/*
>){open FILE, $_ if scalar localtime((stat)[10]) < $time && /$name/}' test . 123