$filename = $dir."/".$filename;
        open (FH, "$filename") || die "cant open file <$filename> $!";