Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 

...
        .  $obj->get_path_cost( @{$path} );
        print "\n";
}