use strict;
use Win32::OLE;
use Win32::OLE::Const "Acrobat";
my $acrobat = Win32::OLE->new("AcroExch.App", "Quit");
my $avdoc = Win32::OLE->new("AcroExch.AVDoc");
$avdoc->Open( "foo.pdf" );
# Open and operate the Save As... dialog?
$avdoc->Close();