my @fhs;
for my $file (qw(/etc/hosts /etc/rpc /etc/services)) {
    my $fh;
    open $fh, $file or die "open $file: $!\n";
    push @fhs, $fh;
}
print scalar <$_> for @fhs;