if target of use then doit;

##doit:
getgender $init_obj;
print "[$init_obj] blows $hisher nose in [$actor]";
set $actor's extra to 'rather crumpled';
$mm = $init_obj's material;
swap $mm take "_cowpox_";
set $init_obj's material = $mm;