perl -MO=Deparse,-x -ne '}{print$.'
LINE: while (defined($_ = <ARGV>)) {  # -n
    ();                               # script body - a noop
}                                     # script body
{                                     # script body
    print $.;                         # script body
}                                     # -n