if (open (FH,">>$filename"){
   #something GOOD;
}
else {
   #something BAD;
}