Could someone check?

Seems to be:

open $fh, '<', $0;;

print scalar <$fh>;;
#! perl -slw

print tell( $fh );;
14

print tell( $fh + 1 );;
tell() on unopened filehandle at (eval 10) line 1.
-1

print $];;
5.010001
[download]