sub spin_cmd {print $anzeige_jahr_w->get()};
my $spinbox = $mw->Spinbox(-from => 1980, -to => 2037, -command => \&spin_cmd)->pack();
$spinbox->bind('<Return>', \&spin_cmd);