Here is my attempt at it but I'm sure other monks might have a better method:

#!/usr/bin/perl
#
# For simple login dialog test
# 

use strict;
use Wx;

#################################################
#
#
package MyApp;
#
#
#################################################
use strict;
use vars qw(@ISA);
@ISA = qw(Wx::App);

sub OnInit {
    my($this) = @_;

    my($frame) = MyFrame->new( undef, -1, "TestApp", [-1,-1], [800, 60
+0]);

    $frame->CenterOnScreen;

    $frame->Show(1);
    $frame->SetIcon( Wx::GetWxPerlIcon() );

    $this->SetTopWindow($frame);

    return 1;
}

#################################################
#
#
package MyFrame;
#
#
#################################################
use strict;
use vars qw(@ISA);
@ISA = qw(Wx::Frame);

use Wx qw(:everything);
use Wx::Event qw(:everything);

sub new {

    my( $class ) = shift;
    my( $this ) = $class->SUPER::new( @_ );

    my $status_bar = $this->CreateStatusBar( 1 );

    $status_bar->SetStatusStyles( 1, wxSB_FLAT  );

    my $IDM_FILE_OPEN = 1000;

    # Create a new menu item.
    my $file_menu = Wx::Menu->new();

    $file_menu->Append($IDM_FILE_OPEN, "&Load File\tCtrl-L","Load a fi
+le" );

    $file_menu->AppendSeparator();

    $file_menu->Append (wxID_EXIT, "E&xit\tCtrl-X", "Exit $0");

    my $menubar = Wx::MenuBar->new();

    # Attach a menu to the menubar.
    $menubar->Append ($file_menu, '&File');

    # Attach the menubar to the window.
    $this->SetMenuBar ($menubar);

    EVT_MENU( $this, wxID_EXIT, sub {$_[0]->Close( 1 )} );
    EVT_MENU( $this, $IDM_FILE_OPEN, \&OpenFileDialog );

    $this->CreateToolBar();

    my $panel = Wx::Panel->new($this, -1, wxDefaultPosition, wxDefault
+Size );

    # Your main app code here ...

    return $this;
}

###########################################################
#
# Extend the Frame class to our needs
#
package Wx::Perl::LoginDialog;

use Wx qw( wxTE_PASSWORD wxTE_PROCESS_ENTER );
use Wx::Event qw( EVT_BUTTON EVT_TEXT_ENTER EVT_UPDATE_UI );

use base qw/Wx::Dialog/;

sub new {

  my $class = shift;
  my $user = shift;
  my $passwd = shift;
 
  my $self = $class->SUPER::new(@_);
  $self->{user_out} = $user;
  $self->{passwd_out} = $passwd;

  $self->{UserLabel} = Wx::StaticText->new(
   $self,    # parent
   -1,        # id
   "User:",   # label
   [10, 30]   # position
  );
  $self->{PasswdLabel} = Wx::StaticText->new(
    $self,     # parent
    -1,         # id
    "Password:",# label
    [10, 50]    # position
  );
 
  $self->{User} = Wx::TextCtrl->new(
    $self,
    -1,
    ${$self->{user_out}} || "",
    [70,30],
    [70,20],
    wxTE_PROCESS_ENTER,
  );

  $self->{Passwd} = Wx::TextCtrl->new(
    $self,
    2,
    ${$self->{passwd_out}} || "",
    [70,50],
    [70,20],
    wxTE_PASSWORD | wxTE_PROCESS_ENTER,
  );

  $self->{Login} = Wx::Button->new(
    $self,
    1,
    "Login",
    [20,90],
  );

  $self->{Cancel} = Wx::Button->new(
    $self,
    2,
    "Cancel",
    [90,90],
  );

  EVT_UPDATE_UI(
    $self,
    -1,
    sub {
      $self->{Passwd}->SetFocus if $$user;
      EVT_UPDATE_UI($self, -1, undef);
    }
  );
 
  EVT_BUTTON(
    $self,     # Object to bind to
    1,         # ButtonID
    \&Login
  );

  EVT_BUTTON(
    $self,     # Object to bind to
    2,         # ButtonID
    \&CancelLogin # Subroutine to execute
  );

  EVT_TEXT_ENTER(
    $self,
    -1,
    \&Login
  );

  $self->{Passwd}->SetFocus if $$user;
  return $self;
}

sub Login { 
  my $self = shift;
  ${$self->{user_out}} = $self->{User}->GetValue;
  ${$self->{passwd_out}} = $self->{Passwd}->GetValue;
  $self->EndModal(1);
}

sub CancelLogin { 
  my $self = shift;
  $self->EndModal(0);
}

###########################################################
#
package Wx::Perl::LoginWindow;

use base qw(Wx::App);   # Inherit from Wx::App
use Wx qw(wxCAPTION wxSYSTEM_MENU);
our ($user, $passwd, $ok);

sub BindVars {
  my $self = shift;
  ($user, $passwd, $ok) = @_;
  $self;
}

sub OnInit {
  my $self = shift;
  $$ok = Wx::Perl::LoginDialog->new(
    $user,
    $passwd,
    undef,         # Parent window
    -1,            # Window id
    'Login',       # Title
    [200,200],     # position X, Y
    [200,150],     # size X, Y
    wxCAPTION | wxSYSTEM_MENU
  )->ShowModal;
  0;
}

package LoginDialog;

sub get_login {
  shift;
  my $ok;
  my $app = eval { Wx::Perl::LoginWindow->BindVars(@_, \$ok)->new };
  die $@ unless $@ =~ "OnInit must return a true return value";
  $ok;
}

1;
###########################################################
#
# The main program
#
package main;

my ($user, $passwd) = @ARGV;

ValidateLogin();

sub ValidateLogin {

    LoginDialog->get_login(\($user, $passwd));

    if ($user eq 'admin' && $passwd eq 'pass') {
        my($app) = MyApp->new();
        $app->MainLoop();
    }
    else {
    $user = "";
    $passwd = "";
    ValidateLogin();
    }


}
[download]

It seems to work but I do notice an issue after entering the valid user and pass : "admin/pass" because it doesn't seem to release the process...

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.