my $textEntry = $mainWindow -> Entry(-state => 'normal') -> pack( -side => 'bottom', -expand => 'BOOLEAN');
$textEntry -> bind('<Return>' => &get);
sub get {
	my $text = $textEntry -> get();
	print "$text\n";
}
##</code><code>##

Tk::Error: Can't locate auto/Tk/Entry/1.al in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at /usr/lib/perl5/Tk.pm line 423
 Carp::croak at /usr/share/perl/5.10/Carp.pm line 44
 AutoLoader::AUTOLOAD at /usr/local/share/perl/5.10.0/AutoLoader.pm line 47
 <Key-Return>
 (command bound to event)