#!/usr/bin/perl

use warnings;
use strict;

my (@Datum) = (localtime(time))[3,4];

print join("-", @Datum);