Help for this page

Select Code to Download

Select or download this

#!perl
use warnings;
...
warn "-"x20, __LINE__, "\n";
dbg_printf("will warn, but expand: x=|%s| y=|%s| ha=|%s| hb=|%s|\n", $
+x, $y, $h{a}, $h{b});
warn "-"x20, __LINE__, "\n";