sub create_zipfile {
    my ($path) = @_;

    my $UUID = Data::GUID->new->as_string();
    my $zipfile_name = $UUID . ".zip";

    my $full_path = $path . "/" . $zipfile_name;
    
    my $zip = Archive::Zip->new();
    $zip->addTree($path, undef);

    if ( ! $zip->writeToFileNamed($full_path) == AZ_OK ) {
	print "Error writing zipfile: $!\n";
    }

    return $full_path;
}