use Benchmark;
$t0 = new Benchmark;

# ... your code here ...
# system("dir", "/s", "path_to_root_sgml_dir\\*.sgml");

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";