in reply to -E behavior with stdin script

The module Modern::Perl addresses a similar issue. I do not know if you could use it, but its documentation may be helpful.
Bill

In Section Seekers of Perl Wisdom