Help for this page

Select Code to Download


  1. or download this
    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.
    
  2. or download this
        my $newfile = "$file.new";
        open(my $fh, ">", $newfile) or die "$newfile: $!";
        print $fh $content;
        close($fh);