#!/usr/bin/perl -w

open (ZIP, "test.zip");
binmode(ZIP);
@all = <ZIP>;
close(ZIP);
print "Content-type: application/zip\n\n";
foreach (@all) {
    print;
}