my $var = $ENV{SERVER_NAME};
12345678
#!/usr/bin/perluse strict;use warnings;use CGI;my $cgi = CGI->new();print $cgi->header, $cgi->server_name;