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

sub ask_with_Tk {
    my $password;

    my $mw = MainWindow->new( -title => 'Enter Password' );
    $mw->geometry( "280x140" );

    my $entry = $mw->Entry(
        -width      => 32,
        -relief     => 'sunken',
        -bd         => 2,
        -justify    => 'center',
        -show       => '*',
    )->place(
        -x => 41,
        -y => 65,
    );

    my $btn = $mw->Button(
        -text       => 'OK',
        -width      => 14,
        -command    => sub {
            # Eingabe als Passwort uebernehmen
            $password = $entry->get();
            # Fenster zerstoeren, wir sind fertig
            $mw->destroy;
        },
    )->place(
        -x => 40,
        -y => 95,
    );

    MainLoop();

    # Password nach Fenstertod zurueckgeben
    return $password;
}




my $password = ask_with_Tk();

say "You entered: $password";



__END__