home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
cgi-bin
/
Japan
/
JAIST
/
welcome.non-lock
< prev
Wrap
Text File
|
2017-09-21
|
352b
|
23 lines
#!/usr/local/bin/perl
print <<End ;
Content-type: text/html
<title>Welcome to JAIST</title>
</HEAD>
<BODY>
<H1>Welcome to JAIST</H1>
End
$counter_file = "visit-count";
$count = `/bin/cat $counter_file`;
print "You are the ", $count, "th visitor to this page";
$count = $count + 1 ;
`echo $count > $counter_file`;
print <<End ;
</BODY>
</HTML>
End