$ perl -le'
   sub f { ( ( caller(0) )[8] & 0x602 ) == 0x602 }
   print f ?1:0;
'
0

$ perl -le'
   sub f { ( ( caller(0) )[8] & 0x602 ) == 0x602 }
   use strict;
   print f ?1:0;
'
1

$ perl -le'
   sub f { ( ( caller(0) )[8] & 0x602 ) == 0x602 }
   use v5.20;
   print f ?1:0;
'
1