#!/usr/bin/perl -w
# the new test3.pl
use strict;

$|=1; #NECESSARY

print "Write something: \n";

my $it=1;
until ($it == 5) {
        print "line $it...\n";
        sleep 1; $it++
}


##</code><code>##


        $text_box -> insert ("end", $_);
        $main->update;