Create Zip-Factory for simpler handling of Zip streams

Change-Id: I66fb1e980437f9b931d71b8bc9fde54bda2aee6f
diff --git a/t/script.t b/t/script.t
index da45633..3ac91d1 100644
--- a/t/script.t
+++ b/t/script.t
@@ -38,6 +38,8 @@
   'Processing'
 );
 
+ok(-e $outzip, "File $outzip exists");
+
 # Uncompress GOE/header.xml from zip file
 my $zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/header.xml');