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

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

$date->command(
# ... code ...
);