sub eintragen {
  $daten->insert('end', "". $ein->get());
}