$ perl -Mwarnings -E 'say(1E0)'
1