Select Code to Download

use constant SRC  => 0;
use constant TGT  => 1;
...
        push @{$_[WORK]}, {key => $_, path => "$src=>$_"};
    }
}

sub find_path {
    my ($beg, $end, $net, $seen, $stop, $work) = @_;
...
    return find_path($beg, $end, $net, $seen, $stop, $next) if @$next;
    return 'path not found';
}