sub getPaperSize {
   my $din = shift || 'a4';
   my $ori = shift || 'l';
   my $scale = shift || 1000;
   
   $din=lc($din);
   $scale=lc($scale);
   
   # die Liste ist in landscape vordefiniert
   my %formate = (
               "a0"  => ('841,1189'),
               "a1"  => ('594,841'),
               "a2"  => ('420,594'),
               "a3"  => ('297,420'),
               "a4"  => ('210,297'),
               "a5"  => ('148,210'),
               "a6"  => ('105,148'),
               "a7"  => ('74,105'),
               "a8"  => ('52,74'),
               "a9"  => ('37,52'),
               "a100" => ('26,37')
			   );
	my($height,$width) = split( /,/, $formate{$din}, 2 );

	my $height_meter=$height/1000*$scale;
	my $width_meter=$width/1000*$scale;
	
	if ($ori eq "p"){
	  $height<=>$width;
	  $height_meter<=>$width_meter;
	}

	# ToDo - Umrechnung in das Bogenmass
	return ($width,$height,$width_meter,$height_meter);
 }