#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "Hello, Im a CGI script and Im gonna print You some environment variables to make You belive that Im working fine smile.gif \n";
print "<br><br>";

foreach $key (keys %ENV) {
print "$key --> $ENV{$key}<br>";
}