perl -MO=Deparse -M"Data::Dump; print 'Hi'" -ne ""
use Data::Dump;
print 'Hi';
LINE: while (defined($_ = readline ARGV)) {
    ();
}
-e syntax OK

##</code><code>##

perl -M"5.01;say q&" -Mstrict -anE " print 'Hi'; }&;{"
;use strict;use feature ':5.26';LINE: while (<>) {our @F=split(' ');
 print 'Hi'; }