This file will output a line of hex and then directly below it the line in ascii.
---------------------------
#! /usr/bin/perl
use warnings;
use strict;
open (my $file, '<', $ARGV[0]) or
die "Unable to open $ARGV[0]: $!";
binmode $file;
while(read ($file, my $buffer,32))
{
for my $char...