#!/usr/bin/wxPerl

use strict;
use warnings;

use Wx;

my &#36app = new Wx::App();

while (my &#36name = Wx::GetTextFromUser('Wie heisst Du?', 'hase.pl')) {
    Wx::MessageBox("Hallo &#36name!", 'hase.pl');
}