$doc = Win32::OLE->new('AcroExch.AVDoc');
$doc->Open($file,"");
$doc->PrintPagesSilent(0,-1,3,1,0);
$doc->Close(0);