use CGI qw(:all);
           print "Content-type : text/html\n\n";
           # print $header;
           # all your lines come here