$Word->{DisplayAlerts} = 1; 

to

$Word->{DisplayAlerts} = 0;