Pretty print HTML code : HTML « CGI « Perl

1. Perl
2. CGI
3. HTML

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();

   
    
    
    
  

Related examples in the same category