open FH, '<', 'filename' or do { $failed = 1; warn $! };