yasm/test_hd.pl

#! /usr/bin/env perl
open(BFILE,$ARGV[0]) || die "Could not open \\$ARGV[0]\\: $!";
while(!eof(BFILE)) {
    read(BFILE, $buffer, 1);
    printf("%02x \n", ord($buffer));
}
close(BFILE) || die "Could not close \\$ARGV[0]\\: $!";