Select Code to Download

#! perl -slw
use strict;
...
__END__
C:\test>909437-1
Lock hash took 1.093 seconds

#! perl -slw
use strict;
...
__END__
C:\test>909437-3
Lock scalars ref took 4.667 seconds