#!/usr/bin/perl -w use strict; use CGI (); my $q = CGI->new(); # Your logic here. print <

EOF print q~ Username:
Password:
~; print < EOF #========================================================== sub HTMLEncode { my ($str) = @_; $str =~ s/&/&/g; $str =~ s/"/"/g; $str =~ s//>/g; return $str; }# end HTMLEncode()