#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new;
$mw->geometry("220x150");

$mw->Button(
	-text => "Sleep",
	-command => \&action,
	)->pack;
MainLoop;

sub action {
 my $chld = fork();
 if ($chld == 0)
	{
	 while(1)
		{
		 print 123;
		 sleep 1;
		}
	}
 else
	{
	 return
	}
}