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