Formatted CGI Environment Variables

#!e:\dev\Perl\bin\perl.exe -w
#!/usr/bin/perl -w
##
## [env.cgi]
## Formatted environment variables.
##
##      (c) Damion 'Phr0z3n.dev' Tapper, 2014.
##      Email: [email protected]
##      Website: http://L337Stuff.Blogspot.com
##

use strict;
use warnings;
use CGI;
use v5.14;
use utf8;

my $cgiObject = CGI->new;

print $cgiObject->header(-type => 'text/html');

my $docHead =
<<HEAD;
<!DOCTYPE html>

<html>
    <head>
        <title>Environment Variables</title>

        <style type="text/CSS">
            body{
                background-color: rgb(51, 51, 51);
            }

            table{
                width: 600px;
                margin 0;
                margin-left: auto;
                margin-right: auto;

                border-collapse: separate;
                border-spacing: 0;
                border: 1px solid rgb(0, 0, 0);
                background-color: rgb(238, 238, 238);
            }
            td, tbody th{
                padding: 10px;
            }
            thead th{
                font-family: Verdana;
                font-size: 18px;
                font-weight: bold;
                color: rgb(255, 255, 196);
                border: 5px double rgb(0, 0, 128);

                background-color: rgb(32, 196, 196);
                text-align: center;
                padding: 4px;
            }
            thead th:hover{
                background-color: rgb(0, 0, 60);
                color: rgb(245, 245, 224);
                border: 5px double rgb(32, 196, 196);
            }
            .odd{
                background-color: rgb(170, 255, 255);
            }
            .even{
                background-color: rgb(224, 255, 255);
            }
            tbody tr:hover{
                background-color: rgb(245, 245, 220);
            }
            tbody td, th{
                font-size: 12px;
                text-align: left;
            }

            .var{
                font-family: Arial, Verdana, sans-serif;
                color: rgb(0, 0, 32);
                font-weight: 900;
                vertical-align: middle;
            }
            .val{
                font-family: Arial, Verdana, sans-serif;
                font-size: 12px;
                color: rgb(0, 64, 0);
                vertical-align: top;
            }
        </style>

    </head>
    <body>
        <table>
            <thead>
                <tr>
                    <th colspan="2">Environment Variables</th>
                </tr>
            </thead>
HEAD

my $docFoot =
<<FOOT;
        </table>
    </body>
</html>
FOOT

print $docHead;

my $i = 0;

    foreach (sort keys %ENV)
    {
        my $key = $_;
        my $val = $ENV{$_};
        #$val =~ s/,/,\n/g if((length $val) > 20);
        #$val =~ s/,/,<br \/>/g if((length $val) > 20);

        $val =~ s/;/<br \/>/g if($key eq 'PATH');
        my $row = '';

            if(($i % 2) != 0)
            {
                $row = <<ROW;
                        <tbody>
                            <tr class="odd">
                                <th class="var">$key</th>
                                <td class="val">$val</td>
                            </tr>
                        </tbody>
ROW
            }
            else
            {
                $row = <<ROW;
                        <tbody>
                            <tr class="even">
                                <th class="var">$key</th>
                                <td class="val">$val</td>
                            </tr>
                        </tbody>
ROW
            }

        print $row;

        $i++;
    }

print $docFoot;

exit;