Select Code to Download

use strict;
use warnings;
...
seek $data, 0, SEEK_SET;
close( $f2 ); #close output file handle
}

james|chicago - first run
alradeyd james exists - second run since input valeue is james and its
+ akready exit
charles|chicago - third time run charles is not exists so written to t
+he file