This is what I use to dump ascii and hex, it gives a vertical hex under eash ascii letter, making it easy to read. Just feed it a file as an argument. I still get confused trying to figure out the extra Perl options...... but it works. :-)

#!/usr/bin/perl -wnl012
# Prints the contents of a file a line at a time
# followed by the ASCII value of each character in vertical columns.
# Useful for debugging.
# If no filename is specified then input is read from the keyboard.
# Version 1.00 Ian Howlett ian@ian-howlett.com 6 July 2001
# Version 1.10 James Yolkowski ajy@sentex.net 8 July 2001

print;                          # Print the line we've just read
@hexvals = map {sprintf "%02X", ord $_} split //; # Get hex value of e
+ach char
for $a (0, 1) {print map {substr $_, $a, 1} @hexvals} # Print the hex 
+values.
print "\n";
[download]