$ perl -Mstrict -wE 'sub f { say eval q[$x] }; my $x = 5; f' Use of uninitialized value in say at -e line 1. $ perl6 -e 'sub f { say eval q[$x] }; my $x = 5; f' 5 $