#!/usr/bin/perl

die "Usage:  $0  file_name\n" unless (@ARGV==1 and -f $ARGV[0]);

open( I, "<", $ARGV[0] );
binmode I;
$offset = 0;
while ( $n = read( I, $b, 16 )) {
    ( $c = $b ) =~ s/[^[:print:]]/./g;
    printf( "%08x: %-47s  %s\n", $offset,
            join( " ", map{ sprintf( "%02x", $_ )} unpack( "C*", $b )),
            $c );
    $offset += $n;
}