open my $fh, '<', 'file' or do { 
    # . . . 
};