my $filename = "$directory\\search_results.txt";
open my $Outfile, '>', $filename or die "Can't open for writing $filename - $!\n";