试图让我的./cat.pl脚本工作

Question

您好我试图让我的./cat.pl脚本像unix中的cat一样工作...我试图让我的猫脚本能够读取任何文件，例如./cat.pl perl.txt - 我想看到文件的输出，然后我想使用getops使用-n作为选项，使其具有数字作为输出的开始，例如：

1.这是用于测试Perl的文本。 2.测试数字线的第二行。

然而，我目前得到的问题如下 -

./cat.pl perl.txt -n
perl.txt

当我运行脚本时，它只输出文件名而不是内容，以允许-n选项工作...

#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my %options=();
getopts("n", \%options) or abort();

open (my $fh,"<",$ARGV[0]) || die "Sorry could not open file. \n";
while ( my $line = <$ARGV[0]> ) {
    if (defined $options{n}) {
            print "$. : $line";
    } else {
            print "$line";
    }
 }

提前感谢您的帮助！