use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
$|++;
$Win32::OLE::Warn = 3; # Die on errors

my $OL = Win32::OLE->GetActiveObject('Outlook.Application')
	    || Win32::OLE->new('Outlook.Application', 'Quit');

    my $NameSpace = $OL->GetNameSpace("MAPI");
    
#You can also use $NameSpace->GetDefaultFolder(olFolderContacts) if you 
#just want to put them in the default.

    my $Contacts =  $NameSpace->Folders("Personal Folders")->Folders("Contacts");
   
     my $NewContact = $Contacts->Items->Add();
        $NewContact->{FullName}="Your Name Here";
        $NewContact->{PagerNumber}="xxx.xxx.xxxx";
        $NewContact->Save();
        
   #And there are about 175 other properties that you can set.