#!/usr/bin/perl

use strict;
use warnings;

start();

sub start{
    my $date = today();
    say( $date );
}

sub today{
    my ($day,$month,$year) = (localtime time)[3..5];
    return sprintf "%02d.%02d.%04d", $day, $month+1, $year+1900;
}

sub say{
    print @_, "\n";
}