use warnings;
use Benchmark qw(cmpthese);
open OUTF, '>', '/dev/null' or die "/dev/null: $!\n";
cmpthese(0, {
  perlprint => q{
    for my $j (0 .. 255) {
      printf OUTF "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", $j, $j;
    }   
  },
  Cprint => q{
    for my $j (0 .. 255) {
      C_print(*OUTF, $j);
    }
  },
});

use Inline 'C' => <<INLINE;
void C_print(FILE *fp, int j) {
  fprintf(fp, "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", j, j);
}
INLINE