Select Code to Download

#!/usr/bin/perl
use strict;
...
    print FILE "Check keyword supplied\n";
}
close(FILE);

if ($value0 == 1) { 
    open INFO, "<tmp";
...
}
close(FILE);
close(INFO);

open TMP,     "<tmp";
open LOG,     ">>RESULT_LOG";
open RESULTS, ">>RESULT_LOG";