#!c:\perl\bin\perl.exe -w

$var1="0815";
print "Meine Variable hat den Inhalt: $var1 \n";
open(dat1,"<c:/Muster.txt") or die "Datei wird nicht gefunden";
while(<dat1>)	{											
	print "$_";
	}
close dat1;