I just started using perl/tk and i needed to know how to get a string from a text widget, i used the get function but it did not work, here is my code, please help:

#!/usr/bin/perl -w

use Tk;

sub grab ;

my $me = MainWindow->new;
$menubar = $me -> Frame() -> pack('-side' => 'top','-fill' => 'x');
$filemenu = $menubar -> Menubutton('-text' =>'file') -> pack('-side' =
+>
'left');

$filemenu -> command(
-label   => 'help',
-command => sub{$text1->insert('1.0',"you clicked help.")},
-accelerator => 'ctrl+s',
);
$filemenu->separator();
$filemenu->command('-label'=>'exit','-command'=>sub {exit});

$me->Button(-text => 'click',
    -command => sub{grab;}
)->pack;

$text1 = $me->Text ('-width'=>40, '-height'=> 1
)->pack;

$me->Label(-text=> 'narmak'
)->pack;

$text2 = $me->Text ('-width'=>40, '-height'=> 1
)->pack;

MainLoop;

sub grab
{
my $take = $text1->get;
$text2->insert('1.0',"$take");
}
[download]