my $string = "This is a test string";
my $x = deflateInit() or die "Cannot do that\n";
open(OUT,">dmp.zip");
print OUT $x->deflate($string);
close(OUT);