my $myline = $.;

print $myline; # 1 - sollte ausgegeben werden.