package Hello2Goodbye;

use Filter::Util::Call;

sub import
{
	my($type) = @_;

	filter_add(bless []);
}

sub filter
{
	my($self) = @_;
	my($status);

	s/Hello/Goodbye/g
	    if ($status = filter_read()) > 0;

	$status;
}

1;