$  perl -MO=Deparse,-p  -0777 -e print
BEGIN { $/ = undef; $\ = undef; }
print($_);
-e syntax OK

$  perl -MO=Deparse,-p  -0777 -pe print
BEGIN { $/ = undef; $\ = undef; }
LINE: while (defined(($_ = <ARGV>))) {
    print($_);
}
continue {
    (print($_) or die("-p destination: $!\n"));
}
-e syntax OK

$  perl -MO=Deparse,-p  -0777 -ne print
BEGIN { $/ = undef; $\ = undef; }
LINE: while (defined(($_ = <ARGV>))) {
    print($_);
}
-e syntax OK