$s = time;
$out4 = (pack 'v*', unpack 'C*', $buf) | ("\x00$filler" x length $buf);
print time() - $s, "\n";