Select Code to Download

my $found = 0;
...
...
# or for truth:

if ($found){...

use warnings;
use strict;
...
sub error_suspect_org {
    die "not a valid org!\n";
}