#!/usr/local/bin/perl -w

# convert binary file to hex

use strict;

@ARGV or die "Usage: $0 <filename>\n";

my $file = shift;

open(FH, $file) or die "Can't open $file: $!\n";
binmode(FH);

my $buf;

while (read(FH, $buf, 32)) {
  # 32 bytes fit nicely on one line when hex-encoded
  print unpack('H*', $buf), "\n";
}

__END__