Select Code to Download

$file = "project.txt";
open(FILE,"$file");
...
    print OUTPUT "$key\n";
}
close OUTPUT;

my %done=();
open INPUT, "<$inputfile";
...
)
close INPUT;
close OUTPUT;