#!/usr/bin/perl

use warnings;
use strict;

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

open (INPUT,"$filename") || die "Couldn't open file: $!";
open (OUTPUT,">$savefile") || die "Unable to save: $!";

if ($hexbin eq "-h"||"-H") {
	binhex();
}
elsif ($hexbin eq "-b"||"-B") {
	hexbin();
}

close INPUT;
close OUTPUT;
exit 0;

sub binhex {
	binmode INPUT;
	while (<INPUT>) { 
		print OUTPUT unpack ('H*', $_), "\n";
	}
}

sub hexbin {
	while (<INPUT>) { 
		print OUTPUT pack ('H*', $_), "\n";
	}
}