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));
        }
    }
}