#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
use lib '.';
use My_Package qw(my_random);

my $stdout_encoding = 'UTF-8';
binmode STDOUT, ":encoding($stdout_encoding)";

my $rand_element = my_random( 
    [ qw( eins zwei drei vier fünf ) ], 
    { encoding_stdout => $stdout_encoding } 
);