#!/usr/bin/perl

use warnings;
use strict;

my $filename = shift;
my $savefile = shift;

open (HEX,"$filename") || die "Couldn't open file: $!";
open (SAVEFILE,">$savefile") || die "Unable to save: $!";
while (<HEX>) {
	print SAVEFILE pack ('H*', $_), "\n";
}
close HEX;
close SAVEFILE;