if (-e $path) { 
   if (-w _) { # Hier wird die Schreibbarkeit von $path bewertet
        ...;
    }
}