Listing 8

#!/usr/local/bin/perl 
 
print <<EOF 
<HTML> 
<HEAD> 
<TITLE>Connect to xs4all</TITLE> 
</HEAD> 
<BODY> 
<H1>Connect to xs4all</H1> 
<br> 
<hr> 
<br> 
EOF 
; 
 
sleep 1; 
print "Dialing xs4all<br>\n"; 
sleep 1; 
print "Connected to xs4all<br>\n"; 
 
print <<EOF 
<br> 
<hr> 
<br> 
</BODY> 
</HTML> 
EOF 
; 

