Try this:

use strict;
use CGI::Pretty;
my $query = CGI::Pretty->new;

print $query->start_form('POST','/cgi-bin/Signup.pl'),
      $query->radio_group(
    -name         =>'Parent',
    -values       => [ "Father", "Mother" ],
    -linebreak    =>'true',
    -columnheader =>'Parent'
);
[download]

After your initial print, you have a comma. Change that to a semicolon or remove the second print statement :)

You were getting a one (1) because you were asking Perl to print the value of the return result of the second print statement. This is almost always true.

$ perl -e 'print "Ovid",print"Ovid"'
OvidOvid1
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.