open MODULE, "perldoc -m Session|" or die "Failed to open pipeline($!)";

	while (<MODULE>) {
	open(X,"> xxx_dump.txt")|| warn "Fail: ($!)";
	print X $_;

	}
close X;
close S;