use strict; use warnings; package main; use Plack::Middleware::SimpleLogin; use Plack::Builder; sub check_pass { my( $username, $pass ) = @_; if( $username eq $pass ){ return 0, $username; } else{ return 'Wrong username or password'; } } sub my_app { my $env = shift; my $page = '
' . $env->{PATH_INFO} . '