#!/usr/bin/perl
use strict;

print "Enter hex bytes to disassemble\n";

while( <> )
{
	chomp;
	my @vals = split / /;
	my $rawdata = '';
	foreach my $val (@vals) {
		$rawdata .= pack("C",hex($val));
	}

	open X86DIS, "| /usr/bin/x86dis -e 0 -s intel";
	print X86DIS $rawdata;
	close X86DIS;
}

