Select Code to Download

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);

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com/cow  <-- Visit my Creative Object World