my $line = 3;
my $char = 0;
$text->SetCursor( "$line.$char" );
$text->SetCursor( "3.0" );