Entry text duch button klick ausgeben

[KuH_am_SchuH]

Hi,

also ich habe mit Perl ein Hauptfenster, einen Button und ein Entry erstellt.

Code:

use Tk; 

my $mw = MainWindow->new(); 
my $b = $mw->Button(                     
-text => 'Klick mich',
                      -command => sub {})->pack();

my $e = $mw->Entry()->pack;

 MainLoop;

Aber wie kann ich jetzt den Text, der in dem Entry steht, in die Konsole ausgeben ?

[KuH_am_SchuH]

*auf die uhr schau* ... hmmm zeit für einen push^^