#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use Time::localtime;
my $filename = "test_protokoll.txt";
open(my $fh, ">>:encoding(UTF-8)", $filename) or die ("Can't open report-file: ".$filename." ($!)\n");
printf    $fh    "current:    %02d-%02d-%04d    -    %02d:%02d\n",    localtime->mday,    localtime->mon    +    1,    localtime->year    +    1900,    localtime->hour,    localtime->min;
close $fh;