use Win32::OLE;

$spssapp = Win32::OLE->GetActiveObject('SPSS.Application');
$data = $spssapp->Documents()->GetDataDoc(0);

my $nvars = $data->GetVariableColumnWidths($cwidths);