Use of uninitialized value $line in chomp

写了一个程序如下:

#!perl

use strict;
use warnings;

sub add_copyright
{
    my $flag = 0;
    my $line;
    my $filename = shift @ARGV;
    open my $input_handler, "<", $filename or die "Failed to open $filename:$!";
     while (chomp ($line = <$input_handler>))
    {
        if ($line eq "## Copyright (C) 20XX by Yours Truly")
        {
            print "The file has the copyright\n";
            $flag = 1;
            last;
        }
        print $line, "\n";
    }
    if ($flag == 0)
    {
        print "## Copyright (C) 20XX by Yours Truly\n";
    }

}

&add_copyright();

结果报： 

Use of uninitialized value $line in chomp 错误，之后将程序改为：

#!perl

use strict;
use warnings;

sub add_copyright
{
    my $flag = 0;
    my $line;
    my $filename = shift @ARGV;
    open my $input_handler, "<", $filename or die "Failed to open $filename:$!";
    while ($line = <$input_handler>)
    {
        chomp($line);
        if ($line eq "## Copyright (C) 20XX by Yours Truly")
        {
            print "The file has the copyright\n";
            $flag = 1;
            last;
        }
        print $line, "\n";
    }
    if ($flag == 0)
    {
        print "## Copyright (C) 20XX by Yours Truly\n";
    }

}
&add_copyright();

问题解决， 求高人告知为啥呢？？？？？？？？请走过路过的指导下哈~~~

令： 在perl 中没有 Break了，取而代之的是last 。。。。。。。。为什么。。。。为什么呢。。。