[...]
$dbh->disconnect();

&dateiausgabe();

&mailversand();

sub dateiausgabe
{
	$old_fh = select(FILE);
	$| = 1;
	select($old_fh);
	}