use constant HEXD1 => "\xd1";
use constant HEXDC => "\xdc";
 
 
$arg = shift(@ARGV);
 
if ($arg eq "HEXD1") {
    $arg = HEXD1;
    print " HEX D1 IS $arg \n";
}
elsif ($arg eq "HEXDC") {
                $arg = HEXDC;
    print " HEX DC IS $arg \n";
}