The tough use print, but the smart use something like this bit of Perl:

my debug = 1 ; sub err { my $msg = shift ; print "err: $msg\n" if $debug; }

George suggests an improvement in the comments.