added perl object support