Select Code to Download

sub write_out {
    my $graph = shift;
...
    print $out $graph->_dump;
    close $out or die "Could not close output $file: $!\n";
}

sub read_in {
    my $file = 'graph.dump';
...
    close $in;
    return $Graph;
}