Algo tan facil

[Estrella Dominguez]

Saludos lista. tengo un problemita con un programa, aunque se que es
muy facil, pero ya no le veo por donde

El programa es este:
print "Escribe y callate.\n";
if(open(DATOS,">datos.txt")) {
$linea=<STDIN>;
chop($linea);
while($linea ne "") {
print DATOS($linea);
$linea=<STDIN>;
chop($linea);
}
}

Esta muy sencillo verdad!!!!!!
Ok el problema cada vez que se ejecuta envia este mensaje:

# perl archivo1.pl
Escribe y callate.
Esto escribiendo algo (aqui le doy un enter)
Undefined subroutine &main::DATOS called at archivo1.pl line 8,
<STDIN> chunk 1.
#  

No se porque se deba. Existe alguna persona que me puede dar una mano
para resolver este problema???

Gracias.
==
Si lo que quieres es vivir cien aņos, no vivas como vivo yo.




_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl