use Win32::OLE::OPC;
use CGI qw(:all);
$opcintf = Win32::OLE::OPC->new('OPC.Automation','hci.phd');
$group = $opcintf->OPCGroups->Add('san_grp');
my $items = $group->OPCItems;
$items->AddItem(  '6440SAN2.PV', 0 );
$item = $items->Item(1);
$item->Write('NORMAL');