#!usr/bin/perl
use strict;
use warnings;
use Win32::OLE;
use XML::Simple;

my $acrobat = Win32::OLE->new("AcroExch.App", "Quit");
$acrobat->Show;

my $avdoc = Win32::OLE->new("AcroExch.AVDoc");
$avdoc->Open( "c:\\scotta\\fotestfile4810.pdf" );