Select Code to Download

#! perl -slw
use strict;
...
c:\test>junk
Unthreaded took: 0.000851
Threaded took: 0.012510

say 'Count: ', scalar @{ threads-> create( \&test, 'test.png' )-> join
+ };

    ...
    shift @b;
    return scalar @b;
}