Select Code to Download

if ((!($username eq 'sugar'))  && (!($password eq 'spice')))
...

}

#! /usr/bin/perl
use strict;
...

print $cgi->end_html ();