open FH, $0 or die $!;

@_=<FH>;print $_[$#_-2]

STDOUT:

@_=<FH>;print $_[$#_-2]