#!/usr/bin/perl

use strict;
use warnings;

my $mw = tkinit();
# der andere Tk-Kram
MainLoop;

sub irgendein_callback{
    my $up = Tk::UserPassword->new;
    my ($user,$pass) = $up->Show();
}