#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;