use Win32::OLE;
 $R = Win32::OLE->new("R.Evaluator");


 $R->library("mva");
 @s = @{$R->search()};
 print "@s\n";
 @o = @{$R->objects("package:base")};