my %haveit;
@haveit{ @lupd } = (1) x @lupd;

my $ftp = Net::FTP->new($host, Debug => 1);
$ftp->login($user,$pass);
$ftp->type("I");

my @listing = grep /x86\.exe$/i, $ftp->ls($remote_dir);

my @newupdate;
foreach my $file (@listing) {