my $username = $self->query->param('username');
  my $password = $self->query->param('password');

  my @auth = LSRfm::Show->search(name => $username);
  my $id = pop(@auth);
  my @aut = LSRfm::Database::Show_Passwords->search(id => $id);
  my $pass = shift(@aut);
#  my $output;
my $ok = "n/a";
if ($password eq $pass)
  {$ok = "yes";}
else
  {$ok = "no";}

print Data::Dumper->Dump([$username, $password, $id, $pass, $ok]);