Select Code to Download

use strict;
 
...
 
print "field1 $seperatorArg field2";

$seperatorArg = "\xd1";

use constant HEXD1 => "\xd1";
use constant HEXDC => "\xdc";
...
    print " HEX DC IS $arg \n";
}

perl hex.pl HEXD1

perl hex.pl HEXDC