#!/usr/bin/perl
use warnings;
use strict;
use feature ":5.10";
use Mobile_Phone_Config;

my %config = mobile_phone_config();


*{ color_count } = $config{color_count};

#*ungueltig = *$config{ungueltig};

sub print_promt { $config{print_promt}->() };


print color_count( 10 );

#ungueltig();

print_promt();