#!/usr/bin/perl -w use CGI qw(header start_html end_html); print header(),start_html(); print "$_ = $ENV{$_}" foreach (keys %ENV); print "\$0 is $0"; print end_html();