#!c:\perl\bin\perl.exe -w
use Tk;


my $char= "&";

my $mw=MainWindow->new;

my $t=$mw->Scrolled("Text",-height=>'45',-width=>'80')->pack();

$t->tagConfigure('tag',-font => "Courier 24 bold",-rmargin=>50);

my $tm=500;
my $try=Tk::After->new($mw,$tm,'repeat',\&loop);
stop();
MainLoop;


sub stop 
{
$t->delete('1.0','end');
	foreach (1..500) {
	$t->insert('1.0', ' ');
	}
}

sub loop {
	$num++;
	if($num==1){first();
	}
	if($num == 3){
	second();
	}
	if($num == 4){
	third();
	}
	if($num == 5){stop();
	$num=0;}
	}

sub first {
$t->insert('1.5',$char,'tag');
}

sub second {
$t->insert('3.6',$char);
}

sub third {
$t->insert('3.7',$char);
}