Select Code to Download

#!perl -w
use Carp;
...
    return eval '$x+$y';
}
print foo(5);   # should get 2 arguments;

Use of uninitialized value in addition (+) at (eval 1) line 1.
    eval '$x+$y
;' called at test.pl line 6
    main::foo(5) called at test.pl line 8
5