#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my @handles = ();

for ( 0 .. $#ARGV ) {

    open $handles[$_], $ARGV[$_] or die "$ARGV[$_]: $!\n";
    
}

print scalar(@handles) . " open Filehandles\n";