use strict;
sub blah {
    my ($script_package, $script_file, $script_line) = caller;
    return $script_line;
}

my $script_line = blah();

print $script_line, "\n";