sub v_print {
	my $volume = shift;
	my $message = shift;
	if ( $volume >= $verbosity ) {
		print $message;
	}
}

##</code><code>##

v_print(1,"Holy Crap = $holy_crap\n");

##</code><code>##

define(`v_print',`print $2 if $verbose >= $1')dnl

##</code><code>##

print "Holy Crap = $holy_crap\n" if $verbose >= 1; 

##</code><code>##

v_print(1,"Foo = $foo, Bar = $bar, Baz = $baz");

##</code><code>##

print "Foo = $foo if $verbose >= 1;