Select Code to Download

use strict;
use warnings;
...
    $NumberOfLinesDrawn +=1;
    print "$NumberOfLinesDrawn\n";
    }

-onPaint => \&Draw
##and
$DC->Validate();

use warnings;
use strict;        
...
        $NumberOfLinesDrawn +=1;
        print "$NumberOfLinesDrawn\n";
        MainLoop;