Help for this page

Select Code to Download

Select or download this

sub _validate{
  my ($login) = @_;

...
    print "Login failed";
  }
}