Select Code to Download

sub get_node {

...

  return (\@nodelist,\@errorlist);
}

my ($nodelist,$errorlist) = get_node($path.'serverlist.txt');

print_log("There were ".scalar @$errorlist." errors in serverlist");