Login screen using Perl

This code snippet takes one parameter for default user and displays a login screen asking for user name and password . It aslo provides an option to navigate to two different pages depending on the option selected.   

 
sub print_login_form {

 my($defaultuser ) = @_;
 my $return_script_flag="0";
 my $user_pass_check="0";
 my($userbox) = textfield(-name=>'userid',-size=>9,-default=>$defaultuser,-maxlength=>8);

 my($passwordbox) = password_field(-name=>'passwd', -size=>9, -maxlength=>8);
 my ($tech_type) = "<input type='hidden' name='tech_type' />";  
 my ($user_pass_check) = "<input type='hidden' name='user_pass_check' />";  
 my %techlabels = ('TDMA' => 'TDMA', 
   'GSM' => 'GSM');
 my @techvalues = reverse(sort keys %techlabels);
 my(@radiobuttons) = radio_group( -name=>'technology',
      -values=>@techvalues,
      -labels=>%techlabels); 

 my ($loginbutton) = "<input name='Login' type='submit' value='Login'  />"  ;
 
 print <<TABLE;
 <center>
 <table border=0 cellspacing=10 cellpadding=5>
 <tr>
  <td>
   <font color=darkblue size=+1><b>User ID:</b></font>
  </td>
  <td>
   $userbox
  </td>
 </tr>
 <tr>
  <td>
   <font color=darkblue size=+1><b>Password:</b></font>
  </td>
  <td>
   $passwordbox
  </td>
 </tr>
 <tr>
  <td>
   <font color=darkblue size=+1>$radiobuttons[0]</font>
  </td>
  <td>
   <font color=darkblue size=+1>$radiobuttons[1]</font>
  </td>
 </tr>
 <tr>
  <td> $tech_type </td>
 </tr> 
  <tr>
   <td>
    $user_pass_check
   </td>
  </tr>
 <tr>
  <td colspan=2>
   <center>$loginbutton</center>
  </td>
 </tr>
 </table>
 </center>
TABLE

 print endform;
 return 1;
}