use strict;
use Benchmark;

sub use_pack {print STDERR unpack "H6",pack "C3",255,0,100;}
sub use_printf {printf STDERR "%02X%02X%02X",255,0,100;}
sub use_sprintf {print STDERR sprintf "%02X%02X%02X",255,0,100;}


timethese(10_000_000,{
 'Mit pack & unpack: ' => \&use_pack,
 'Mit printf: '        => \&use_printf,
 'Mit sprintf: '        => \&use_sprintf
 }
);