$ perl -MO=Deparse -e 'open INP, "<", "hello" || die $!'                                             

open INP, '<', 'hello';
-e syntax OK



$ perl -MO=Deparse -e 'open(INP, "<", "hello") || die $!'                                                      
die $! unless open INP, '<', 'hello';
-e syntax OK



$ perl -MO=Deparse -e 'open INP, "<", "hello" or die "could not open: $!"'                                                      
die $! unless open INP, '<', 'hello';
-e syntax OK