if (-W $file) {
   ... do happy stuff ...
}else{
   ... do unhappy stuff ...
}