# from the command line
    perl d1
    perl d3

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