Select Code to Download

my %used;
for ( @{ $graph_data->{Edges} } ) {
...
            die( 'Only one input per node!' );
    }
}

my %used;
for ( @{ $graph_data->{Edges} } ) {
...
    }
}

    eval {
        ...
...
    if ( $! ) {
        say "Error starting ID $_->{id}: $!";
    }