Estou tentando escrever um script perl que lê nomes de arquivos em um arquivo test.txt em uma matriz e exclui os arquivos com base nos nomes de arquivos da matriz. Aqui está o que eu tenho até agora ...

#!/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 e remove_files.pl estão no mesmo diretório que os arquivos a serem removidos. Não consigo descobrir por que o script não exclui os arquivos. Estou faltando um módulo?