I am trying to format the radio and submit buttons in the start_form. I would like to have them centered on the page, but I cannot find any information on how to accomplish this. Everything I have tried has failed. My code follows:

#!/usr/bin/perl -w



use CGI;

use CGI ":standard";

$time = localtime;
$servertime = `uptime`;

print header,
        start_html(-title=>"SysInfo", 
        -background=>"tower.jpg", 
         -text=>"black"),
        h1({-align=>center},
        "Franklin University's System Information", b),
        start_form,
        radio_group(
                -name=>'base',
                -values=>['Up Time','Server Time'],
                -default=>'Up Time'),

        p,
        submit,
        end_form,
        hr;

print CGI::center();

$base = param("base");

if ($base eq "Up Time") {
                printf($servertime);
        }
         else {
                printf($time);
        }
        print hr;

print CGI::center();

$log = "count.dat";
open GETCOUNT, "<$log" or die("Error in $0: $log - $!n");
$hits = <GETCOUNT>;
close(GETCOUNT);

$hits++;
printf "This web page has been viewed $hits times.";

open COUNT, ">$log" or dienice("Cant open file to WRITE");
print COUNT $hits;
close COUNT;
print hr;




use strict;


print start_html("Browser Detect");

my($ua) = $ENV{HTTP_USER_AGENT};

if (index($ua, "MSIE") > -1) {
   print "The Franklin Server has determined that you are using Intern
+et Explorer to access it.<p>\n";
} elsif (index($ua, "Netscape") > -1) {
   print "The Franklin Server has determined that you are using Netsca
+pe to access it.<p>\n";
} elsif (index($ua, "Safari") > -1) {
   print "The Franklin Server has determined that you are using Safari
+ to access it.<p>\n";
} elsif (index($ua, "Opera") > -1) {
   print "The Franklin Server has determined that you are using Opera 
+to access it.<p>\n";
} elsif (index($ua, "Mozilla") > -1) {
   print "The Franklin Server has determined that you are probably usi
+ng Mozilla to access it.<p>\n";
} else {
   print "The Franklin Server cannot tell what browser you are using!<
+p>\n";
}

print end_html;

[download]

In reply to Centering start_form data by spannclann

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.