#!perl -w
use Carp;
local $SIG{__WARN__} = \&Carp::cluck;
sub foo {
	my($x, $y) = @_;
    return eval '$x+$y';
}
print foo(5);   # should get 2 arguments;