# -*- mode: cperl -*-
if ($t->[3]<<5) {
  return 0;
}
# comment