Select Code to Download

$ 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
$