input output eingabe ausgabe ##

##

	sub change_lang
	{
	my $id= shift;
	my $file='lang.xml';
        my $result;
	my $parser = XML::LibXML->new();
	my $tree = $parser->parse_file($file);

	$result=$tree->findnodes("/language/$language/widget[@ID="$id"]");
	return $result;
	}