use CGI::Pretty qw(:all *table)

print &login_form();

sub login_form {
return startform(-method =>'POST'),
center,
start_table({-celpadding => '0' ,-class=>'default', -cellspacing =>'0' , -border => '1'}),
Tr,td,
start_table({-celpadding => '0' ,-class=>'default', -cellspacing =>'0' , -border => '0'}),
Tr,td,p({class=>"title"},'<b>Username</b>'),td,textfield(-name=>'user'),br,
Tr,td,p({class=>"title"},'<b>Password</b> '),td,input({-name=>'password', -type=>'password'}),br,
Tr({-valign =>"middle",-align =>"middle"}),td,td,submit(-class=>'input',-value => 'Submit'),'','',
reset(-class=>'input',-value => 'Reset'),end_table,end_table,
endform;
}