#!perl
use warnings;
use strict;

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

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