Select Code to Download

sub do_download {
        my $self = shift;
...
        close(READ);
        return "@fcontent";
}

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

PK {rest of zip file}

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