Select Code to Download

sub do_something {
  my $args = shift;
...

  return $result, @errors;  
}

sub display_status {
  my @errors = @_;
...
    print "Operation succeded\n";
  }
}

my ($result,@errors) = do_something(\%args);
if (@errors) {
  display_status(@errors);
}