Help for this page

Select Code to Download

Select or download this

use Tk;
use Benchmark qw(cmpthese);
use MIME::Base64 qw(encode_base64);
...
       }
     }
    );

Select or download this

$ perl5.9.5d -Mblib=/home/e/eserte/work/svk-checkouts/Tk-debug ~/trash
+/imgbench.pl
        Rate base64 binary
base64 574/s     --   -38%
binary 926/s    61%     --