use POSIX;
use locale;
setlocale(LC_ALL, "de_DE.utf8"); 
use File::stat;
my $filename = "c:/tmp/02.log";
my $sb = stat($filename);
printf "die Datei heisst %s, Gr&Ӈe ist %s, Rechte sind %04o, mtime %s\n",
    $filename, $sb->size, $sb->mode & 0777, scalar localtime $sb->mtime;