#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	$this->target->msg('disconnected', %_);
	$this->target('');
	$this->msg('hangup', %_);
}
