sub do_download {
        my $self = shift;
        my $post = $self->query();
        my $fname = "/storage/surtron/cda/clients/ryan/new/surtron-020130-01.zip";
        my $fsize = -s $fname;
        $self->header_props(    -type => "application/octet-stream",
                                -attachment => "blahblah2123.zip",
                                -Content_length => $fsize);
        open(READ,$fname) || die;
        my @fcontent = <READ>;
        close(READ);
        return "@fcontent";
}

##</code><code>##

Content-Disposition: attachment; filename="blahblah2123.zip"
content-length: 139124
Content-Type: application/octet-stream

PK {rest of zip file}

##</code><code>##

my $filecat = `cat /blah/blah/whatever`;
return $filecat;