$eval = new Win32::DDE::Client ('mIRC', 'EVALUATE');
$response = $eval->Request('CHANNELS');