#!/usr/bin/perl use 5.010; use strict; use warnings; use utf8; use Image::Magick; # main-parameeters my %config=( programmname=>'osmMaperativeWanderbuch', # Name der Funktion logfile_name=>'mylogfile.txt', # Protokolldatei sandwich=>0, ..... north_margin_horizontal_mm=>5, # Abstand des norths vom Rand (horizotal) ); GetOptions ( "help|h" => sub{ Usage(); }, "debug" => sub{ $config{debug}=1; }, "data=s" => \$config{data}, "job=s" => \$config{job}, "title=s" => \$config{title}, "sandwich=s" => sub{ $config{sandwich}=1; }, "poffset=s" => \$config{page_offset}, "pprefix=s" => \$config{page_prefix}, "psuffix=s" => \$config{page_suffix}, "overlay" => sub{ $config{flag_create_overlay}=1; }, "gray" => sub{ $config{flag_convert_gray}=1; }, ) or Usage();