use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $frame = $mw->Frame()->pack;

my $name = $frame->Entry( )->pack;
my $alter = $frame->Entry( )->pack;

my $button = $frame->Button( -text => "Ausgabe",
							 -command => \&ausgabe,
                           )->pack;						   

MainLoop;

sub ausgabe
{
print $name->get()." ".$alter->get()."\n";
}