$daba = "../cgi-bin/wdb/wdb1.dbf";
$punkt = index($daba, ".");
$anf = substr($daba, 1, $punkt-1);
$end = substr($daba, $punkt);
Daba: $daba
# $dabaRes = ">wdb/wdb2.dbf";
# $dabaRes = ">" . substr($daba, 1);
# $dabaRett = "<" . $anf . "Rett" . $end;
# open(STDN, $dabaRes);
# open(STDM, $dabaRett);
# while(){
# my $zeile = $_;
# print STDN "$zeile";
# };
# close(STDN);
# close(STDM);