Help for this page

Select Code to Download


  1. or download this
    my @files = grep { !/^\.+$/ && -M $_ > 1; }
            map { $mydir."/".$_; } readdir(DIR);