use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';

my $Word = Win32::OLE->new('Word.Application', 'Quit')|| Win32::OLE->LastError();
my $original_printer = $Word->ActivePrinter|| Win32::OLE->LastError();

my $dir = $_[0];
my $source = $_[1];

my $filename = $source;
$filename =~ s/^.*(\\|\/)//g;


use Data::Dumper;
print "Values: " . Dumper(\@_);

$Word->{'ActivePrinter'} = "Win2PDF on NE00:";

sleep 2;

$Word->ChangeFileOpenDirectory("$dir");

chdir "$dir";

my $pdf = $filename;
$pdf =~ s/doc$/doc.pdf/i;

$Word->Documents->Open("$source", {'ReadOnly' => 1,}) or die("Can't access file $source. Reason: ", Win32::OLE->LastError());
$Word->ActiveDocument->PrintOut({
'Background' => 0,
'Append' => 0,
'Range' => wdPrintAllDocument,
'Item' => wdPrintDocumentContent,
'Copies' => 1,
'PageType' => wdPrintAllPages,
'PrintToFile'=> 0,
'OutputFileName' => "d:\\tempPDF\\$pdf",
});
sleep 1;
$Word->ActiveDocument->{'Saved'} = "True";
sleep 2;
$Word->ActiveDocument->Close({
'SaveChanges' => wdDoNotSaveChanges,
'OriginalFormat' => wdOriginalDocumentFormat,
'RouteDocument' => 0,
});

sleep 2;
$Word->{'ActivePrinter'} = "$original_printer";
$Word->Quit();

Win32::AuthenticateUser::AuthenticateUser("domain", "user, "pass") || die $Win32::GetLastError;

This module is incomplete and is not being actively developed. No documentation exists (yet), and there may be bugs in the code.