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