Select Code to Download

#! perl
use warnings;
...
open(FH,"> $0.gif")or die "$!\n";
print FH $blob;
close FH;

               Rate     threaded non-threaded
threaded     1.41/s           --         -94%
non-threaded 24.7/s        1652%           --