use Win32::OLE;
use Win32::OLE::Variant;

my $re = Win32::OLE->new('Read.ReadService') || die("Unable to open ReadService ", Win32::OLE->LastError());


#Variables
my $dat;
my $temp;


#$dat = Variant(VT_UI1|VT_ARRAY|VT_BYREF, 1);
$dat = Variant(VT_EMPTY, 1);
$re->Read(0xE0000, 13, $dat);

foreach $temp ($dat) {
	print "0x".$temp;
}