It's worth noting that the function caller, when used in Windows, returns the line from the first line of actual code.

#! /usr/bin/perl -w

foo() ;

sub foo{ print join(" ", caller); }
[download]

This will print '3' as the line number on my Windows machine.