Select Code to Download

fetch cookies
check if authorized
...
      else
       authorization failed
display form to login

use DBI;
use CGI qw /:standard/;
...
      "Password: ",password_field('password'),br,
      submit('Enter'),
end_form, "\n";

use DBI;
...
}