lanx@lanx-1005HA:~$ export PERL5OPT="-Mstrict -Mwarnings -MData::Dump -Mfeature=say"
lanx@lanx-1005HA:~$ perl
say "huhu";
dd [1,2,3]
__END__
huhu
[1, 2, 3]