Select Code to Download

use strict; use warnings;
use Win32::OLE;
...
  print "after: $paragraph->{Style}->{NameLocal}\n\n";
}
$file->Close();

Output:

...
paragraph 4
before: Normal
after: Normal