Select Code to Download

    # from the command line
    perl d1
...

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

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

    my $arg = chr hex shift;