#!/usr/bin/perl -w

use strict;
my $contador;

open F0, $ARGV[0];
$contador=1;

while (<FO>)
{
	open FICHERO, ">hits/hit$contador";
	print FICHERO "$_\n";
	$contador++;
}
close FICHERO;
close F0;
$contador=$contador-1;

print "hi ha $contador hits\n";