#!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