use Config::General;

sub {
	my( $said, $pm ) = @_;
	my $main_conf = $pm->get_main_conf;

	my $o = Config::General->new(
			-ConfigFile => $file,
			-LowerCaseNames => 1,
			-UseApacheInclude => 1,
			-AutoTrue => 1
		);

	print $o->save_string( $main_conf );
}

__DATA__

Dump the current configuration file