$ perl -Mwarnings -E 'say(1 * 10**0)'
1