$ perl -e 'eval q[use feature qw[ say ]; say "hello"]'
hello