#!/usr/bin/perl
$|++;

use Tk;
my $pid = fork();    

unless($pid) {
    while(1..5) {
        sleep(1);
        prozess_bei_den_eltern("$_");
    }
    CORE::exit;
}

my $window = MainWindow->new();

$window->Label(-text=>'')->pack();

sub prozess_bei_den_eltern {
    $window->configure(-text => $_[0]);    
}

MainLoop;