Variable für aktuelle Zeile

[ME]

Hi,
gibt es in Perl eine Variable, die mir die aktuelle Zeile von meinem
Perl-script ausgibt?
Bsp:
Anstatt
print " Das Script ist derzeit in Zeile 4567 ";
sowas ...
print " Das Script ist derzeit in Zeile $AKTZEILE ";

thx
ME