Mega Code Archive

 

Categories / Perl / CGI

 

Pretty print HTML code

#!/usr/bin/perl use warnings; use strict; use CGI::Pretty; my $cgi=new CGI::Pretty; print $cgi->header(),       $cgi->start_html("Environment Dumper"),       $cgi->table({-border=>1},       $cgi->Tr($cgi->th(["Parameter","Value"])),       map {           $cgi->Tr($cgi->td([$_,$ENV{$_}]))      } sort keys %ENV      ),      $cgi->end_html();