Shell Programming and Scripting

#!/usr/bin/perl


use strict;
use warnings;
use CGI;


my $hostname = $ENV{'HTTP_HOST'};
my $form = new CGI;

 


        print  $form->header;

        print $form->start_form( -method => 'POST' , -name => 'mainform' , -id => "main_form" );


        print $form->start_html( -title => "Global Network Services");
        print $form->br();
        print $form->body({-bgcolor=>"#ff9900"});

        print $form->br();
        print $form->a({  -href=>"./welcome.cgi"
                          -onClick=>"parent.location='./welcome.cgi'  " },
                          "Homepage"
                      );
        print $form->br();
        print $form->br();
        print $form->b( "top N Reports" );
        print $form->br();
        print $form->br();
        print $form->a({ -name=>"NormalizedMemoryInfo" -href=>"./NormalizedMemoryInfo.cgi"},"Memory Utilization");

        print $form->br();

        print $form->a({ -name=>"NormalizedCPUInfo" ,   -href=>"./frametestnew.cgi"},"CPU Utilization");
        print $form->br();
        print $form->p();
        print $form->end_form;
        print $form->end_html;