or download this
%fields = ('1.Name' => $cgi->param('name') || 'Anonymous',
'2.Email' => $cgi->param('email') || 'No email Supplied',
'3.Comments' => $cgi->param('comments') || 'No Comments',
'4.Satisfied' => $cgi->param('radio1') || 'Not Specified',
);