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