#!/usr/local/bin/perl &html; sub getenv { foreach (sort keys %ENV) { print "$_: $ENV{$_}\n"; } } sub html { print < EOM &getenv; print < EOM } 1;