#!/usr/bin/perl -w

use Env;

foreach $key ( param() ) {
        $$key = param($key) unless $$key;
}

print "<!--\n";
foreach $parameter ( sort keys %ENV ) {
   print "$parameter is: $ENV{$parameter}\n";
}
print "-->\n";