Select Code to Download

use IO::Handle qw( );
VULNFILE->autoflush(1);

use strict;
use warnings;
...

close($list_fh);
close($vuln_fh);