print "Content-type: text/html\n\n"; print qq~ The User Name

$user_name

Is Already Taken

~; 1;