$ perl -MO=Deparse -wl -MFatal=open -e 'open A, "date|"; print scalar <A>'
Name "main::A" used only once: possible typo at -e line 1.

# ..
# lots of imported stuff from Fatal
# ..

&open('A', 'date|');
print scalar <A>;

-e syntax OK