CGI Perl

#!perl
use CGI qw( :standard );
print header;
print <
   
      Environment Variables...
   
   
   
End_Begin
foreach $variable ( sort( keys( %ENV ) ) )
{
   print <   
   
   
   
End_Row
}
print <   
$variable$ENV{$variable}

   

End_Finish
# Must include newline after End_Finish!