Helpful, but some syntax errors:

$cgi->headers

should be:

$cgi->header

missing closing ")":

map { li($ENV{$_} } keys %ENV

should be:

map { li($ENV{$_}) } keys %ENV