open MODULE, "perldoc -m ModuleX |" or die "Failed to open pipeline($!)";
open(X,"> xxx_dump.txt")|| warn "Fail: ($!)";

while (<MODULE>) {
    print X $_;
}
close X;
close S;