Select Code to Download

sub v_print {
    my $volume = shift;
...
        print $message;
    }
}

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

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

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

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

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