use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
my $zip = Archive::Zip->new();
my $tfname = Archive::Zip::tempFile('/homepages/...../htdocs/');
$zip->addTree("/homepages/...../htdocs/shop/", "backup");
$zip->overwriteAs("/homepages/..../backup.zip");