Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
    $o->UNTIE;
}
printf "Object usage took: %.3f seconds\n", time() - $start;

Select or download this

__END__
C:\test>b-tieHash.pl
...
tied usage took: 210.352 seconds
8376437/16777216
Object usage took: 126.642 seconds