Help for this page

Select Code to Download


  1. or download this
    D:\ENV>perl pm10.pl
Holli (New). Found: 1 ( D:\env\Videos/2012 )
...
Time: -32
ovedpo15. Found: 1 ( d:/env/Videos/2012 )
Time: -51
  2. or download this
    use File::Find;
use File::Spec::Functions;
...
$t = time(); 
ovedpo15();
print "Time: ", ($t - time), "\n";