Help for this page
open (OUTFILE, "<$dirContent");
open (OUTFILE, ">$dirContent");
perl -p -i.bak -e '/oldstring/newstring/'