Select Code to Download

open APPLIST, $applistfile or die "Can't open $applistfile file: $!";
while (<APPLIST>) {
        push @inpfile, [split /\n/];
}
close APPLIST or die "Cannot close $applistfile: $!";

foreach my $ifile (@inpfile)
...
                $sth->execute;
                }
}