unless (open(FH, $file))
{
    ...send email, sound the klaxons, raise a ruckus, etc.
    ...if I really can't continue, I'll die or exit here.
}
else
{
    ....do fun stuff with FH
}