Index: misc/dnsbench.pl
===================================================================
--- misc/dnsbench.pl	(revision dff3e87bde3c27a391f9906cda4ac694d0fc653f)
+++ misc/dnsbench.pl	(revision acce4015c36df83fb7ed8f48860aa1a3bef6e64a)
@@ -6,5 +6,5 @@
 use Net::DNS;
 
-my $hostlist = shift @ARGV || die "usage: $0 list_of_hosts [nameserver]";
+my $hostlist = shift @ARGV or die "usage: $0 list_of_hosts [nameserver]";
 if (! -r $hostlist) {
     die "$0: cannot read $hostlist";
@@ -25,6 +25,6 @@
 
 
-open LIST, "<$hostlist";
-while (my $host = <LIST>) {
+open my $list, '<', $hostlist or die "$0: filename: $!";
+while (my $host = <$list>) {
     chomp $host;
     my $query = $res->send($host);