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