Programa Perl para contar 3000 nts