use Tk;
my $mw = Tk::MainWindow->new();
sleep 1 if fork ();
exit;