#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use OSM::Tree;
use OSM::Tree::Helper;
use OSM::Tree::WayMerger;
...
my $log=Log::File->open($config{logfile_name});
...
# Aufruf der Funktion für die Way-Suche
my @superway_id_result = osmtree_waymerger(@data,$log);    

....