or download this
my $username = user_input('Username: ');
my $password = user_input('Password: ');
...
undef $password; # deny access to $password later on
deny_access('User authentication failed.')
unless grep { /set\-cookie/i } keys %{$xml->{_headers}};