Select Code to Download

#! /usr/bin/perl;

...

s/To: [\.\@\D\,]*/To: someone\@email.com/ while <IN>;
close(IN);

open (INFILE, "<$dirContent");
open (OUTFILE, "<$dirContent");
...
close (INFILE);
close (OUTFILE);