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'
);

##</code><code>##

$ perl -e 'print "Ovid",print"Ovid"'
OvidOvid1