On the other hand, it seems to me like you should be subclassing wxDialog, and you using ->ShowModal(). Also, you may wish to pass style along the lines of wxCAPTION|wxSYSTEM_MENU and maybe add a cancel button (goes along with the whole dialog idea).

Also, a good name for this baby would be Wx::Perl::LoginWindow (in the tradition of Wx::Perl::Carp,Wx::Perl::TreeChecker ... it's Mattia approved ;D)

And on a final note, instead of those comments at the bottom, I think code might be better (:

package main;
unless( caller ){

    if( @ARGV ) {
        LoginDialog->get_login(\my ($user, $passwd));
        die "USER $user\n\nPASS $passwd\n\n";
    } else { # Use defaults if available:

        my ($user, $passwd);
# Default either one if desired
        $user = 'username';

        unless ($user and $passwd) {
        # require LoginDialog
            LoginDialog->get_login(\($user, $passwd));
        }
    }
}
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.