#!/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>) {
    print $OUT $_ unless /;\s+/ ;
}

close $IN  or die "Error closing $iniprod: $!";
close $OUT or die "Error closing $ininocm: $!";