/tmp>perl -e '$_=<STDIN>;print ord $_' < shebang.pl
10
/tmp>