@rem = '--*-Perl-*--
@echo off
perl "%~dpnx0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl
#line 8
use strict;
use warnings;

binmode(STDIN);
$/ = \16;
my $line = '';
my $len = 0;
my $offset=0;
my $offhex='';
my $ord=0;
my $hex='';
my $char='';
print <<HEAD;
Offset    00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF
--------  -----------------------------------------------  ----------------
HEAD
format STDOUT =
@<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<
$offhex,  $hex,                                            $char,
.
while (<>) {
  $len = length;
  $offhex = sprintf('%08X', $offset);
  $hex = '';
  $char = '';
  foreach (split (//)){
    $ord = ord($_);
    $hex  .= sprintf('%02X ', $ord);
    $char .= ($ord > 13 or $ord < 7) ? $_ : ".";
  }
  write;
  $offset += $len;
}
__END__
:endofperl