open(FILE, ">/etc/perl/CPAN/Config.pm") || die "/etc/perl/CPAN/Config.pm: $!";
print FILE "
...