 Second Perl Programm, Simple counter... |
|
|
|
|
  |
 Oct 20 2004, 04:29 PM
Post
#1
|
|
|
Newbie [Level 2]  Group: Members Posts: 29 Joined: 19-October 04 From: Russia Member No.: 1,827  |
View all information abaut web host:
CODE #!/usr/bin/perl #down.cgi use CGI qw(param); use CGI::Carp qw(fatalsToBrowser); print "Content-Type: text/html\n\n"; print "<html><body>"; print "Script_name: $ENV{'SCRIPT_NAME'}<br>\n"; print "S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n"; print join("<br>",map("$_=$ENV{$_}",keys %ENV)); print "</body></html>"; |
 |
 
|
|
Similar Topics
|
Lo-Fi Version | Time is now: 7th August 2008 - 11:59 PM |