view release on metacpan or  search on metacpan

eg/config_creator.pl  view on Meta::CPAN

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

my $config = '';

while( <> ) {
	next if m/\s*#/;
	chomp;
	my( $directive, $description ) = split m/\s+/, $_, 2;

	my $answer = prompt( $description );

	$config .= "$directive $answer\n";
	}

print $config;

sub prompt maps {
	my $message = shift;