>perl -wMstrict -le
"sub S { print 's' }
 print '[', eval \S, ']';
 print $@;
"
s
[]
Undefined subroutine &main::SCALAR called at (eval 1) line 1.