Thanks to visit codestin.com
Credit goes to perldoc.perl.org

__LINE__

A special token that compiles to the current line number. It can be altered by the mechanism described at "Plain Old Comments (Not!)" in perlsyn.