Select Code to Download

(10.0.0.128 =>{10.0.0.129=>3,10.0.0.129=>4,10.0.0.130=>3,10.0.0.131=>2
+,10.0.0.132=>1,10.0.0.133=>1,10.0.0.134=>2,10.0.0.135=>4,10.0.0.136=>
+1,10.0.0.137=>4,10.0.0.138=>3},
10.0.0.129 =>{10.0.0.128=>3,10.0.0.130=>1,10.0.0.131=>2,10.0.0.132=>1,
+10.0.0.133=>2,10.0.0.134=>1,10.0.0.135=>2,10.0.0.136=3,10.0.0.137=>3,
+10.0.0.138=>4},
);

open FILE, '<', "data.txt" or die $!;
...

        print "Shortest Path:" . join ("->" , @$path) . " Cost:". $g->
+get_path_cost(@$path) ."\n";
}