#!/usr/bin/perl
###########################################
# hd.pl - Hexdump
# Mike Schilli <m@perlmeister.com>, 2004
###########################################
use warnings;
use strict;

my $data = join '', <>;
use Data::Hexdumper;
my $results = hexdump(
    data => $data,
    number_format => 'C',
);
print $results;