use warnings;
use strict;        
use Tk;
my $mw = MainWindow->new;  
my $x = 0; my $y = 0;
my $counter=0;
our $NumberOfLinesDrawn = 0;

my $c = $mw->Canvas(-width => 500, -height => 500);
$c ->pack;

for(1..300) {$y +=1; $x +=1;
 
  $c -> createText( $x, $y, -fill => 'red', -text => '.');
        
        
        }
        $mw->update;
        $NumberOfLinesDrawn +=1;
        print "$NumberOfLinesDrawn\n";
        MainLoop;