Select Code to Download

print STDERR join("\x1E", @list),"\x1E\n";

sub dbg {
    return unless $DEBUG;
...
        print STDERR $str unless $QUIET;
    }
}

#!/usr/bin/perl
use Private::Debug 'dbg';
...

dbg("Hello there", "You fool");
dbg(':DUMP:', "ARGV:", \@ARGV);