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