#!/usr/bin/perl -w
use strict;

use Graph::Undirected;
my $net = Graph::Undirected->new;
while (<DATA>) {
    $net = $net->add_edge( split );
}

use Data::Dumper;
print Dumper($net);

__END__
0 1
1 2
1 3
1 4
2 4
4 5