#!/usr/bin/perl

   use strict;     # ALWAYS use strict
   use CGI qw(p br);

   my $cgi         = CGI->new();

   print $cgi->header(),
         $cgi->start_html(-title=>'Welcome'), "\n",

         p('Acesta este pagina de index si mai 
            jos se afla legatura facuta la test.pl'),
         p('Acesta este continutul fisierului'), br().

         $cgi->end_html();