Listing 7

#!/usr/local/bin/perl 
 
print <<EOF 
<HTML> 
<HEAD> 
<TITLE>PPP Startup</TITLE> 
</HEAD> 
<BODY> 
<H1>Available Internet Service Providers</H1> 
<br> 
<hr> 
<br> 
EOF 
; 
 
@isps = glob "pppconnect.*"; 
foreach $isp ( @isps ) { 
	$ispname = $isp; 
	$ispname =~ s/pppconnect\.//; 
	print "<A HREF=$isp>$ispname</a><br>\n"; 
} 
 
print <<EOF 
<br> 
<hr> 
<br> 
</BODY> 
</HTML> 
EOF 
;
