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

##</code><code>##

sub dbg {
	return unless $DEBUG;
	my $dump = 0;
	($dump = 1 && shift) if ($_[0] eq ':DUMP:');
	$LOGFILE = open_logfile();
	foreach my $item (@_) {
		$str = (($dump && ref $item)  ? Dumper($item) : $item)."\x1E\n";
		print $LOGFILE POSIX::strftime("%Y%m%d:%H.%M.%S\x1E",localtime).$str if defined $LOGFILE;
		print STDERR $str unless $QUIET;
	}
}

##</code><code>##

#!/usr/bin/perl
use Private::Debug 'dbg';
$Private::Debug::DEBUG = 1;
$Private::Debug::QUIET = 0;

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