open my $fh, "<", "filename" or do {warn "Whatever"; return;};