Я пытаюсь написать Perl-скрипт, который читает имена файлов в файле test.txt в массив, а затем удаляет файлы на основе имен файлов в массиве. Вот что у меня так далеко ...

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

open(FILE, "test.txt") or die("Unable to open file.");

my @data = <FILE>;

close(FILE);

foreach my $line (@data){
        unlink($line);
}

test.txt и remove_files.pl находятся в одном каталоге с файлами, которые будут удалены. Я не могу понять, почему скрипт не удаляет файлы. Я пропускаю модуль?