perl -peek filename
    perl -peer filename

##</code><code>##

    perl -li -00pe0 filename

##</code><code>##

    perl -alien -sex -Fiend

##</code><code>##

    perl -peruse filename