(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},
);

##</code><code>##


open FILE, '<', "data.txt" or die $!;
my %graph = <FILE>


use Paths::Graph;

my $g = Paths::Graph->new(-origin=>"10.0.0.128"=>"10.0.0.138",-graph=>\%graph);

my @paths = $g->shortest_path();

for my $path (@paths) {

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