Select Code to Download

my @removed_files = <STDIN>;
chomp(@removed_files);

my $removed = unlink($file);
print "Removed $removed file(s).\n";
...
# - or -

unlink($file) == 1 or die "Failed to unlink $file: $!";