use Win32::OLE;
use Win32::OLE::Variant; #Needed for ReceivedTime constant.
$Outlook=Win32::OLE->new('Outlook.Application');
$namespace = $Outlook->GetNameSpace("MAPI");
$pf1 = $namespace->Folders("Public Folders");