sub lesen_var_referenz
{
my ($newsock,$variablenname) = @_;

	if (exists $daten{$variablenname})
	{
#              $daten->name
#              $daten->name->mpi
#              $daten->name->wert
#              $daten->name->typ
#              $daten->name->db
#              $daten->name->byte
#              $daten->name->bit
#              $daten->name->format

	    $newsock->send($daten{$variablenname});
	}
	else
	{ &schreibeLogeintrag("Schluessel:".$variablenname." wurde im Script $0 in der Funktion: \"lesen_var_referenz\" nicht gefunden\n");}
}