Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dumper;
...
    }
}
__END__

Select or download this

5.014001
seekdir( -1) =  1 => $VAR1 = [];
...
seekdir(  5) =  1 => $VAR1 = [];
seekdir(  6) =  1 => $VAR1 = [];
#################################