my $oldhandle = select EINSTELLUNGEN;
$~ = "EXI";
select ($oldhandle);