if ($_ =~ /^set/)
	 {	  
	  $_ =~ s/^set //g;		  
	  ($var, $wert) = split(/=/, $_);
	 
	  if($wert =~ /\%*\%/) 
	    {		 
		 $wert =~ s/\%.*\%/$1/; 
		
                 #?????
		 $ENV{'var'}=
	         #?????

		 }
		 else
		 {
	
		 $ENV{'$var'}=$wert;
		 }
	
	 }
	}