use Tk;

$mw= MainWindow->new;
$mw->title('sadfa');
$f = $mw->Frame->pack(-side=>'bottom');
$f->Button(-text=>'Print',-command=>\&print_info)->pack(-side=>'left');
$t=$mw->Scrolled("Text", -width=>40, -wrap=>'none')->pack(-expand=>1, -fill=>'both');
@widget_list = ();
$long_text = "text1 text1 text1 text1 text1 text1 text1 text1 text1 text1 ";
foreach ($long_text,"text2", "text3", "text4") {
	$w= $t->Text( -width=>20, -height=>2);
	$w->insert('end',$_);
	$t->windowCreate('end',-window=>$w);
	$t->insert('end', "\n");
	push @widget_list, $w;
}

sub print_info {
	foreach my $text (@widget_list) {
		
	print join "  ", $text->yview;
	print "\n";
	my $index = $text->index('end');
	print qq§ index : $index \n§;
	}
print "----------\n";
}
MainLoop;