Select Code to Download

sub warn {
  my @messages = @_;
...
    print STDERR @messages;
  }
}

sub die {
  my @messages = @_;
...
    exit(255);
  }
}