$ perl -e <<___
if(1) {
print 44;
}
___
No code specified for -e.