Select Code to Download

sub _traverse {
    my ($self, $pointer, $itself, $path, @path) = @_;

    die "Incorrect parameter" unless $itself =~/^\d+$/;
    ...

perl -d <your-program-name>
 # At the prompt, enter "c" (without the quotes), then <enter>.