$linenum = &{sub{(caller)[2]}};

##</code><code>##

   $linenum = __LINE__;

##</code><code>##

  $linenum = (caller)[2];