my $zip = Archive::Zip->new();
				my $archive = "$upload_dir/$file";
				
				die "can't read .zip" unless $zip->read($archive) == AZ_OK;
				
				my @members = $zip->memberNames;
				foreach my $member(@members) 
				{
					my @member_parts = split(/\./,$member);
					my $file_id = int(rand(10000000));
					my $newMemberName = "../fotos/$album/$file_id\."."$member_parts[1]";
					my $db_name = "$file_id\."."$member_parts[1]";
					$zip->extractMember($member, $newMemberName);
					
					my $sql_insert = "INSERT into fotos VALUES('','$db_name','')";
	
					my $prepare_insert = $dbh->prepare( $sql_insert ) || die $dbh->errstr;
					$prepare_insert->execute() ;
					$dbh->disconnect();
					unlink $member;
					
				} 
				
				
				unlink $archive;