my $datei = $menubar->cascade(-label => '~Datei',
                              -tearoff => 0);
# ---------------- trennlinie

$datei->command(
    -label => 'Mein Status',
    -background=> 'white',
    -command => \&one
);