#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tie::Tk::Text;

my $mw = MainWindow->new;

my $w = $mw->Text()->pack();

tie my @text, 'Tie::Tk::Text', $w;

$w->insert('end', "foo\nbar\nbaz\n");

print $text[1]; # "bar\n"

MainLoop;