if (open(FH, $filename)) {
# Here $! is meaningless.
 ...
} else {
# ONLY here is $! meaningful.
  ...
# Already here $! might be meaningless.
}