Perl 从文件中读取行并输出带有行号的每一行

我对Perl编程非常陌生，我正在编写一个程序，打开一个文件并逐个读取文件的每一行。然后，它输出文件，每行开头都有一个行号

到目前为止，我正在阅读这些行，但我不知道如何区分单独的行并在开始时输出一些内容

#!/usr/bin/perl
use strict
use warnings

my $file = 'FILENAME.txt';
open(my $txt_file, '<', $file) or die "Could not open file."

while (my $lines = <$txt_file>) {
    ...
}

#/usr/bin/perl
严格使用
使用警告
my$file='FILENAME.txt'；
open（my$txt_file，变量保存上次访问的文件句柄的当前行号：

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

my $file = 'FILENAME.txt';
open my $fh, '<', $file;

while ( my $line = <$fh> ) {
    print "$. $line";
}

！/usr/bin/perl
严格使用；
使用警告；
使用自动模具；
my$file='FILENAME.txt'；
打开my$fh，“变量保存上次访问的文件句柄的当前行号：

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

my $file = 'FILENAME.txt';
open my $fh, '<', $file;

while ( my $line = <$fh> ) {
    print "$. $line";
}

！/usr/bin/perl
严格使用；
使用警告；
使用自动模具；
my$file='FILENAME.txt'；
打开我的$fh，'谢谢。有没有办法格式化它，使它输出4位数字的行号？例如，第64行将是0064@toolic：格式在中进行了解释。谢谢。是否有方法将其格式化以使其输出4位数字的行号？例如，第64行将是0064@toolic：格式在中进行了解释。
perl-ne'printf“%04d%s”，$，$，$文件名.txt
perl-ne'printf“%04d%s”，$，$，$文件名.txt