bless my $self={}, Highwayman; foreach (@coachroads) { $self->ride($_); } $self->attach(Sword->new()); $self->attach(Pistol->new()); $self->trade()->take($maid->{baubles}); $self->blade()->take($man->{lifeblood}); wait_until_spring_of_twenty_five; # FIXME: dates pre 1970 not supported on UNIX so this is needs a better implementation $bastards->hang($self); # assume Lawmen or subclass thereof, side effect uses Acme::Damn to unbless Highwayman instance bless $self, Highwayman; # still alive