Select Code to Download

 Directory of c:\test

...
1 trial of File::ReadBackwards (10ms total)

1 trial of Tie::File (66.065s total)

#! perl -slw
use strict;
...
$t->stop('Tie::File');

$t->report;