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

	while (<MODULE>) {
    @tab = split;
	foreach $_ (@tab) {
			print X $_;

	}
		}
		close X;

	close MODULE;