Select Code to Download

  my $username = $self->query->param('username');
  my $password = $self->query->param('password');
...
  {$ok = "no";}

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

$VAR1 = 'Offline';
$VAR2 = 'password';
...
1  
1
0