C:\Dokumente und Einstellungen\sak>perl 2>nul
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
}
);
^Z
Benchmark: timing 10000000 iterations of Mit pack & unpack: , Mit printf: , Mit sprintf: ...