my $doc = $word->Documents->Open("$oldfile") or die("Couldn't open $oldfile");