my %tabelle;
print "Ergebnis:\n" .  &maketab2pdf (\%tabelle) . "\n";

sub maketab2pdf {
	use PDF::Create;
	my $output = '';
	close (STDOUT);
	open (STDOUT, '>', \$output);
	my $pdf = new PDF::Create	(
		'filename'     => '-',
		'Version'      => 1.2,
		'Author'       => 'unbekannnt',
		'Title'        => 'Beispiel',
		'CreationDate' => [ localtime ],
		);
	my $root = $pdf -> new_page ('MediaBox' => $pdf -> get_page_size ('A4'));
#[PDF Erzeugung....gekürzt]
	return $output;
}