tif(xxx) {
  some;
  perl;
  code;
}