my $error = $usr ? '' : 'Gah! No usr supplied!'; print <

Username

Password

$error

HTML