#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $mw = tkinit();

my $menu = $mw->Menu(-type => "menubar");
$mw->configure(-menu => $menu);

$menu->cascade(-label => "~Datei");

my $balloon = $mw->Balloon(-initwait => 1);
$balloon->attach($menu, -msg => ["Menü: Datei"]);

MainLoop;

__END__