if (-e $file) {
        open(FH,">","$file") or die $!;
}