gistfile1.txt

#!/opt/bcv/bin/perl
use Mojolicious::Lite;

plugin 'basic_auth';

get '/' => sub {
    my $self = shift;

    return $self->render_text('ok')
      if $self->basic_auth(
          realm => sub {
              warn "@_";
              return 1 if "@_" eq 'username password'
          }
      );
};

app->secret('check cgi for the rest of us');
app->start;