require "datei1.pl";
			print $p1::variable;
			print &p1::funktion;