Select Code to Download

open( my $fh, "<", $array_ip_list )
  or send_mail("ip_list_error"),
...
    # [ Clean up after ourselves, delete our temp file, etc. ]
    die "Something went wrong.";
}

# Expects at least 1 argument matching the type of e-mail to send, and
# optionally the additional arguments it might need.  If this got much
...
    # This will send our e-mail, regardless of which one we built.
    $msg->send;
}