#!/usr/bin/env perl
# use Modern::Perl qw /2014/;
my $iniprod = 'php.ini-production';
my $ininocm = 'php.ini-nocomments';
open my $IN,  '<', $iniprod or die "Could not open $iniprod for reading: $!";
open my $OUT, '>', $ininocm or die "Could not open $ininocm for writing: $!";
while (<$IN>) {
   if (!$_ /;\s+/) {
      print $OUT $_
   }
}
close $IN  or die "Error closing $iniprod: $!";
close $OUT or die "Error closing $ininocm: $!";