Select Code to Download

Found = in conditional, should be == at ./test.pl line 26.
Found = in conditional, should be == at ./test.pl line 27.
...
Global symbol "$content" requires explicit package name at ./test.pl l
+ine 35.
Bareword "then" not allowed while "strict subs" in use at ./test.pl li
+ne 31.
Execution of ./test.pl aborted due to compilation errors.

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