my $dir;
opendir ($dir, ".") or die "error!\n";

for my $file_name (readdir $dir) {
	next if $file_name =~ m/^\./;
	system("c:\\program\ files\\microsoft\ office\\office10\\winword.exe", "$file_name", "/q", "/n", "/mFilePrintDefault", "/mFileExit");
	sleep 10;
}