use Win32::OLE::OPC;
use CGI qw(:all);
$opcintf = Win32::OLE::OPC->new('OPC.Automation','hci.phd');
$group = $opcintf->OPCGroups->Add('sanitize_mode');
$items = $group->OPCItems();
$reset_item = $items->AddItems("6440SAN2.PV", 999);
$reset_item->Write('SANITIZE');