Select Code to Download

sub process {
  my $alert = shift;
...
    # process $line of alert
  }
}

if (@alert) {
  process(@alert)
}