... print "welcome ",$username, "your email address is ",$email; open(HTML,"index.da1"); while(){print$_;} close(HTML); print "your manager is ",$manager; open(HTML,"index.da2"); while({print$_;} close(HTML);