sub xrename {
   if ($preview) {
      print(...);
   } else {
      rename(...);
   }
}

xrename(...);