#!/usr/bin/perl
use strict;
use warnings;

# zu lesende Datei
my $file=shift(@ARGV) or die("No File");

# datei öffnen
open( my $fh, '<', $file) or die("Error open $file ($!)");

# keine Zeichenkonvertierung durch Perl!
binmode($fh,':raw');

# beim einlesen kein Zeilenende verwenden
# alles ist eine Zeile!
$/=undef;

# alle Daten einlesen
my $raw_data=<$fh>;

# Datei schließen
close($fh);

# die Rohdaten in einzelne Zeichen splitten je 8bit
my @data=split(//,$raw_data);

# Daten Nach Hex-Werte konvertieren
@data=map{ unpack('h*',$_) }@data;

# das array wider zusammenführen
my $hex_data=join(' ', @data);

# und alles ausgeben
print "$hex_data\n";