Return a ZIP file like this example

Hi, I need help to return a winzip-file like I can do with an image like this code. #!/usr/bin/perl $source = "image.gif"; $status = ""; $file = ""; open (IMAGE, "<$source") or $status = "File not found!"; $size = -s "$source"; read (IMAGE, $file, $size); close IMAGE; if ($status

Return a ZIP file like this example with an image

Hi, I need help to return a winzip-file like I can do with an image like this code. #!/usr/bin/perl $source = "image.gif"; $status = ""; $file = ""; open (IMAGE, "<$source") or $status = "File not found!"; $size = -s "$source"; read (IMAGE, $file, $size); close IMAGE; if ($status