scripting perl: getting window item from channel

Hi there!

I've got a channel object and I'd like to move the window item in which this channel is.
My idea is to get the window item from the channel, but how do I do that?

Cheers,
--polemon