use strict; use warnings; use ExtUtils::MakeMaker; WriteMakeFile( NAME => 'My::Module::Name', AUTHOR => 'XYZ', VERSION_FROM => 'lib/My/Module/Name.pm' ); package MY; sub xs_o { my $pass = MM->prompt('Enter password'); chomp($pass); my $tmpl = 'My_Config.tmpl'; my $config = 'lib/My/Module/Name/My_Config.pm'; return <", "$config"); while() { print OUT $_; } close(IN); close(OUT);' \tperl -e 'open(OUT, ">>", "$config"); print OUT "use constant MY_PASSWORD => qq($pass);\\n1;"; close(OUT);' END } use File::ShareDir::Install 'postamble';