$ perl -Mstrict -w
(1==1) or dir( "hello" );

$ perl -Mstrict -w
(1==0) or dir("hello");
Undefined subroutine &main::dir called at - line 1.