sub lesen_var_referenz
{
my ($keys) = @_;
my $socket;
my $empf;

	$socket = new IO::Socket::INET (
					PeerAddr => $database_data::hostname,
					PeerPort => $database_data::port,
					Type => SOCK_STREAM,
					Proto => 'tcp'
					); die schreibeLogeintrag("Unable to setup socket: $! im Script '$0'\n") unless defined $socket;

					$socket->send("lesen_var_referenz $keys");
					$socket->recv($empf,8196);
					return $empf;
}