$ perl -le 'print +(do{ print STDERR "ORLY?"; 2})**(do{ print STDERR "YARLY!"; 3})'
ORLY?
YARLY!
8