Found = in conditional, should be == at ./test.pl line 26.
Found = in conditional, should be == at ./test.pl line 27.
Found = in conditional, should be == at ./test.pl line 28.
syntax error at ./test.pl line 24, near ") {"
Global symbol "$page_id" requires explicit package name at ./test.pl line 26.
Global symbol "$page_description" requires explicit package name at ./test.pl line 26.
Global symbol "$page_id" requires explicit package name at ./test.pl line 27.
Global symbol "$page_description" requires explicit package name at ./test.pl line 27.
Global symbol "$page_id" requires explicit package name at ./test.pl line 28.
Global symbol "$page_description" requires explicit package name at ./test.pl line 28.
Global symbol "$page_id" requires explicit package name at ./test.pl line 29.
syntax error at ./test.pl line 29, near ") ("
Global symbol "$page_description" requires explicit package name at ./test.pl line 29.
Global symbol "$content" requires explicit package name at ./test.pl line 33.
Global symbol "$page_description" requires explicit package name at ./test.pl line 33.
Global symbol "$content" requires explicit package name at ./test.pl line 35.
Bareword "then" not allowed while "strict subs" in use at ./test.pl line 31.
Execution of ./test.pl aborted due to compilation errors.

##</code><code>##

    my $newfile = "$file.new";
    open(my $fh, ">", $newfile) or die "$newfile: $!";
    print $fh $content;
    close($fh);