my $nr = unlink @files_to_delete;
  if( $nr != scalar @files_to_delete ) {
     print "uh-oh: helpful error message here";
  }

##</code><code>##

  for( @files_to_delete ) {
     # untaint $_ here
     unlink or print "failed to remove $_: $!\n";
  }