in reply to problem accessing file

open FH, $0 or die $!; @_=<FH>;print $_[$#_-2] STDOUT: @_=<FH>;print $_[$#_-2]