#!perl
use warnings;
use strict;

sub line {
  return((caller())[2]);
}

print "Line is: ", line(), "\n";
[download]

Note that it has to be in a sub. :)

bbfu
Black flowers blossum
Fearless on my breath

I'm guessing you wanna read sigtrap and perlvar.

You also might wanna check out Carp. When I'm doing any "debugging", i just use warn (or carp), cause it already prints the line number.

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

Hehe, I actually poked around perlvar a little bit, but by over-riding __DIE__ I was referring to this node. I will definately finish looking through perlvar.

Carp sounds like exactly what I'm looking for. I didn't realize Carp printed the line number automatically, so it should work almost exactly like what I was looking for.

thanks
--
Ben
"Naked I came from my mother's womb, and naked I will depart."