$toplw=$main->Toplevel();
$text=$toplw->Text(-width=>50)->pack();

open(PROG, "/bin/tar -czvpf $ziel/$zielname -X $excludefiles /|" ) || die "Error! can't execute tar\n";
while(<PROG>) {
$text->insert('end', "$_"); $toplw->update();
}
close(PROG);