package StringyEval; use strict; use warnings 'once'; sub foo { my($self, $bar) = @_; return $bar; } 1;