foreach $zipfile (@zipdata) {
	$zipfile2= "./LOG/$zipfile";
	my $zd = Archive::Extract->new(archive => $zipfile2);
	my $ok = $zd->extract( to => './LOG') || die $zd->error;
@file=File::Spec->catfile( $to, $zd->files->[0] );
	print @file;
}	
exit;