use Win32::DDE::Client;
$mirc = new Win32::DDE::Client ('mIRC', 'COMMAND');
$mirc->Poke('filler', "/@ARGV");