# from the command line
    perl d1
    perl d3

    # in the code
    my $arg = hex(shift @ARGV);

##</code><code>##

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

##</code><code>##

    my $arg = chr hex shift;