open(my $fh , "<" , $array_ip_list)
    or send_mail("ip_list_error"), die "IP List File - nas_array_ip_list.txt not found";