c:\dev>perl search_and_replace.pl
Global symbol "$directory" requires explicit package name at search_and_replace.pl line 33.
Execution of search_and_replace.pl aborted due to compilation errors.