for ( $i = 0; $i <= $#ARGV; $i++ ) { $contador = 0; open( F1, "$ARGV[$i]" ) or die "No existe el fichero"; while ( $linea = ) { print $linea; }