#! /usr/bin/perl
use warnings;
use strict;

use Archive::Zip qw( AZ_OK );
use Data::GUID;

##</code><code>##

create_zipfile('/home/choroba/_/0');