# ЭКСЕЛ -- ГАД И ОКРУГЛЯЕТ ЦВЕТ!!!!!!!!!!!!!!!!
perl -MOLE -we "e->Selection->{Interior}->{Color}=245*256*256+255*256+255;print e->Selection->{Interior}->{Color}"

##</code><code>##

#simple helper for oneliner to get active word, excel
#package OLE;

use Win32::OLE qw(CP_UTF8);
Win32::OLE->Option(CP=>CP_UTF8);


sub e {
  return Win32::OLE->GetActiveObject('Excel.Application');
}
sub w {
  return Win32::OLE->GetActiveObject('Word.Application');
}
sub ao {
  return Win32::OLE->GetActiveObject(shift);
}

1;