Constant subroutine emptyenum redefined
at C:/Perl/site/lib/Win32/OLE/Const.pm line -1.

##</code><code>##

use Win32::Shortcut;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';

my $x = Win32::OLE->GetActiveObject('Word.Application');

# snip

$x->Selection->Delete( {
          Unit=>wdCharacter,
          Count=>1
     } );

# The above is my kiddy-scripted version of some VisualBasic that I
# came upon:  Selection.Delete Unit:=wdCharacter, Count:=1

##</code><code>##

    ws::BEGIN() called at C:/Perl/site/lib/Win32/OLE/Const.pm line 120

##</code><code>##

	use strict;
	use warnings;
	use Win32::OLE;
	use Win32::OLE::Const 'Microsoft Outlook';

##</code><code>##

    email_out::BEGIN() called at out_subs.pl line 1027