Select Code to Download

#!/usr/bin/perl
use warnings;
...
$th1->join();
$th2->join();

C:\test>junk2
0 : 1227891440.24088 } 
...
          'b' => {}
        };
2 : 1227891441.28835  } 60 microseconds to dump the hash