#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow();

my $password = '';

my $entry = $mw->Entry(
  -show=>'*',
  -relief=>'ridge',
  -textvariable=>\$password
)->pack;

$entry->bind('<Return>',[\&somesub]);
$entry->focus;
MainLoop;

sub somesub {
    $password = $entry->get;
    print "password ->$password\n";
    $mw->destroy;
    }

print "you can continue on here\n"; 
<>; #wait for keypress to exit;

#process your password here and continue with your script
[download]

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

my $app = ..YOUR CODE HERE... ( $user, $passwd );
[download]

#!/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]