Use of __LINE__ in perl.
Posted by peeterjoot on January 24, 2011
I’d wondered a couple times how to do this, and had littered scripts occasionally with various manually created unique text markers for debugging purposes. Here’s an easier way:
print " Line: ", __LINE__, "\n";
(works for __FILE__ too).