Select Code to Download

use strict;
use Win32::OLE;
...
    print "InnerText '$win->{Document}->{body}->{InnerText}'\n";
    print "OuterText '$win->{Document}->{body}->{outerText}'\n";
}

use strict;
use Win32::OLE;
...
    print "@list";

}