Cover V05, I03
Article
Figure 1
Figure 2
Figure 3
Figure 4
Listing 1
Listing 2
Listing 3
Listing 4
Listing 5
Listing 6
Listing 7
Listing 8
Sidebar 1

mar96.tar


Listing 8: Dial-up connection

#!/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
;