for my $file (@files) {
   my $retries = 2;

   JUST_TRY_ME: {
       unless( unlink $file ) {
           if( (--$retries) > 0 ) {
               warn "problem unlinking file ($file): $!"; sleep 2;
               redo JUST_TRY_ME;

           } else {
               die "too many problems unlinking file ($file) ...";
           }
}