#!/usr/bin/perl

use strict;

# Datei on the fly erstellen (hier allerdings ohne mysqldump)
open(my $file, ">backup.txt");
for (my $i=1;$i<10000000;$i++) {
	print $file "Hello World\r\n";
}
close($file);


# Datei zum Download anbieten
print qq(Content-Type: text/plain\n);
print qq(Content-Disposition: attachment; filename="backup.txt"\n\n);
open(my $file, "<backup.txt");
binmode($file);
while (read($file,my $bytes,1024)) {
	print $bytes;
}
close($file);
unlink('backup.txt');