#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	$this->immobile(0);
	$this->worn(0);
}
