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   
Text File  |  2017-09-21  |  352b  |  23 lines
  1. #!/usr/local/bin/perl
  2.  
  3. print <<End ;
  4. Content-type: text/html
  5.  
  6. <title>Welcome to JAIST</title>
  7.  
  8. </HEAD>
  9. <BODY>
  10. <H1>Welcome to JAIST</H1>
  11. End
  12.  
  13. $counter_file = "visit-count";
  14. $count = `/bin/cat $counter_file`;
  15. print "You are the ", $count, "th visitor to this page";
  16. $count = $count + 1 ;
  17. `echo $count > $counter_file`;
  18.  
  19. print <<End ;
  20. </BODY>
  21. </HTML>
  22. End
  23.