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

sub v_print1 {
    my $volume = shift;
    my $code   = shift;
    if ( $volume >= $verbosity ) {
        print &$code;
    }
}

sub v_print2 {
    my $volume = shift;
    my $code   = shift;
    if ( $volume >= $verbosity ) {
        print eval( $code );
    }
}

sub v_print3 {
    my $message = shift;
    print $message;
}