Select Code to Download

my ($node_ref,$error_ref)=get_node();
my @nodes=@$node_ref;
my @errorlist=@$error_ref;

return(\@serverlist, \@errorlist);

sub main {
my $path = 'E:/scripts/OutageNodes/';
...
close SRV;
close_log();
}

sub get_node {

...
 }
return(\@serverlist, \@errorlist);
}