#!/usr/bin/perl

use warnings;
use strict;

use Tk;

my $mw = Tk::MainWindow->new();
$mw->geometry("+200+200");
my $e1 = $mw->Entry(-bg => "white", -fg => "black");
$e1->pack(-padx => 10, -pady => 10);
$e1->focus();
my $e2 = $mw->Entry(-bg => "white", -fg => "black");
$e2->pack(-padx => 10, -pady => 10);
my $btn = $mw->Button(-text => "getit", -command => sub{getValues($e1, $e2);});
$btn->pack(-side => "right", -padx => 10, -pady => 10);
Tk::MainLoop();

sub getValues {
    my $e1 = shift;
    my $e2 = shift;
    my %testumgebung;
    $testumgebung{MAILING_SERVER_ADRESSE} = $e1->get();
    $testumgebung{MAILING_SERVER_PORT} = $e2->get();
    foreach my $i (keys(%testumgebung)) {
        print "$i\t$testumgebung{$i}\n";
    }
}