sub getDayName {
    use Time::Local;

    my $day = shift; # DD || D
    my $month = shift; # MM || M
    my $year = shift; # YYYY

    my $info = scalar( localtime( timelocal(0,0,0,$day,$month-1,$year) ) );
    my @parts = split / /, $info;
    my %days = (
		"Mon" => "Mo",
		"Tue" => "Di",
		"Wed" => "Mi",
		"Thu" => "Do",
		"Fri" => "Fr",
		"Sat" => "Sa",
		"Sun" => "So"
		);
    my $weekDay = $days{$parts[0]};
    return $weekDay;
}