my $arg = chr(hex(shift @ARGV));