Select Code to Download

Select or download this

foreach my $file ( @files ) {                            
        open(my $fh, ">>", $file->{full_path}); # or return(0);
...
        chmod(0755, $file->{full_path});                 
        print "Created \"$file->{full_path}\" with $file->{line_counte
+r} line" , ( $file->{line_counter} > 1 ) ? "s" : "" , "\n";
        }

Select or download this

print() on closed filehandle $fh at ./Make.pl line 223.
Can't open perl script "../Path/to/file.pm": File or directory not fou
+nd