xsize 0 Report post Posted October 20, 2004 View all information abaut web host: [br]#!/usr/bin/perl[/br]#down.cgi[br][/br]use CGI qw(param);[br]use CGI::Carp qw(fatalsToBrowser);[br][/br]print "Content-Type: text/html\n\n";[/br]print "<html><body>";[br]print "Script_name: $ENV{'SCRIPT_NAME'}<br>\n";[/br]print "S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n";[br]print join("<br>",map("$_=$ENV{$_}",keys %ENV));[/br]print "</body></html>"; Share this post Link to post Share on other sites
