Help for this page

Select Code to Download

Select or download this
```
dprint 1, "this is debugging"
```

Select or download this

sub dprint {
    my $level = shift;
...
    my ($file, $line) = (caller)[1,2];
    print STDERR "$file:$line: @_\n";
}