my $podfile = "some.pod";
	my $scalar = '';
	tie *STDOUT, 'IO::Scalar', \$scalar;
	podselect $podfile;	# reads form $podfile, writes to STDOUT
	untie *STDOUT;
	# now $scalar contains the pod from $podfile