#!/usr/bin/perl

my @args = @ARGV;

my $out = pack("c*", map(hex,@args));

print $out;

