open(HTML,"index.da1"); while(){ # do something to $_ print $_; } close(HTML);