#!/usr/bin/perl
use strict;
use warnings;
use CGI qw();

# Testdaten
my $content = '0123456789abcdef' x ( 64 * 1024 );

my $cgi = CGI->new();

print $cgi->header(
    -type           => 'application/octet-stream',
    -attachment     => 'save.dat',
#    -Content_length => length $content,
);

### Altlasten
#my $length  = length $content;
#print <<OUTPUT;
#Content-Type: application/octet-stream
#Content-Length: $length
#Content-Disposition: attachment; filename="save.dat"
#
#OUTPUT

my $pos        = 0;
my $partlength = 10_240;

# langsamen Download simulieren; (wg. Test mit localhost)
while ( my $part = substr( $content, $pos, $partlength )  ) {
    print $part;
    $pos+=$partlength;
    sleep 1;
}