use Win32::OLE qw( EVENTS);
use Data::Dumper ;


package MyEvents;

sub OnDataReady2 {
	my ($Obj, @Args) = @_;
...
}