use strict;

package ErrorChannel;

sub new {
	my $self = {};
	bless $self, shift;
	return $self;
}

sub dberror {
	my $self = shift;
	print shift; print "\n";
}

1;