#!/usr/bin/perl -P

use constant DEBUG => 0;

sub _debug { print $_[0]; }
#define debug(s) _debug(s) if DEBUG

debug("test\n");