unless(open FH,"$file"){
    open(LOG,">>$log") or die"Error writing to error-log file...how weird: $!";
    print "Error at ",__LINE__," here's what happened: $!";
    close LOG;
}else{
    proceed as normal....
}