#!/usr/bin/perl

use Tk;
use Tk::ROtext;

$mw = MainWindow->new;
$mw->geometry("400x400");
$print = $mw->Scrolled('ROText',-scrollbars=>'e',-height=>22,-width=>45)->pack();

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

sub action {
 $chld = fork();
 if ($chld == 0)
	{
	 while(1)
		{
		 $print->insert('end',"123");
		 sleep 1;
		}
	}
 else
	{
	 return
	}