sub file ($) {
    my ($arg) = @_;
    my $tw=$mw->Toplevel(-title => "Datei $arg");
    my $mes=$tw->Message(-text => "Datei $arg ist nicht aktiv",
                         -width => '10c', -justify => 'center')->
                         pack(-side => 'top');
    my $but=$tw->Button(-text => "Schließen",
                        -command => [$tw => 'destroy'])->pack(-side => 'top');
}