1Check interaction of __WARN__, __DIE__ & lexical Warnings 2 3TODO 4 5__END__ 6# 8signal 7BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } } 8BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } } 9$a =+ 1 ; 10use warnings qw(syntax) ; 11$a =+ 1 ; 12use warnings FATAL => qw(syntax) ; 13$a =+ 1 ; 14print "The End.\n" ; 15EXPECT 16WARN -- Reversed += operator at - line 6. 17DIE -- Reversed += operator at - line 8. 18Reversed += operator at - line 8. 19