Select Code to Download

#!/usr/bin/env perl -l

...

    $code->($end);
}

Path [A C D] is a value: 4
Path [A C E] is a reference: not printed.
Path [B C D] is a reference: not printed.
Path [B C E] is a value: 5
Path [] is a reference: not printed.