open my $fh, '<', 'assign' or
  die "hard, but say why (\$!): $!\n";