find(sub{
  print("$File::Find::name: ",
        unlink() ? "success" : "failure ($!)"
  ) if /\.bak\z/;
}, $searchdir);