if (!open my $fh, 'file') {
  something;
  something else;
}