sub getDayName {
    use Time::Local;
    my ($day, $month, $year) = @_;

    my $weekDay = ( localtime( timelocal(0,0,0,$day,$month-1,$year) ) ) [6];
    my @name = qw( So Mo Di Mi Do Fr Sa );
    return $name[$weekDay];
}