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

##</code><code>##

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

# - or -

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