open(LOG, $file) or die ("\n\tPFAD/FILENAME FALSCH ? \n\nLogfile konnte nicht geoeffnet werden: $!");    #$file öffnen

##</code><code>##

&Readinfo("$infofile");
&Read("$file1");
&Read("$file2");
&Write("$file1");
&Write("$file2");
&Writeinfo("$infofile");

##</code><code>##

Readinfo($infofile);
Read($file1);
Read($file2);
Write($file1);
Write($file2);
Writeinfo($infofile);

##</code><code>##

index("$line","STEAM_0:",32)))

##</code><code>##

index($line,"STEAM_0:",32)))