use strict;
use warnings;
use Date::Calc qw( Delta_Days 
                   Nth_Weekday_of_Month_Year
                   Day_of_Week 
                   Day_of_Week_to_Text
                   Date_to_Text_Long );

my ($jahr, $monat, $tag) = (2009,11,22);

my $dow = Day_of_Week($jahr,$monat,$tag);

my $n = Delta_Days(Nth_Weekday_of_Month_Year($jahr,$monat,$dow,1),
                $jahr,$monat,$tag);
$n = int($n / 7) + 1;

printf("%s is %s number %s\n",
    Date_to_Text_Long($jahr,$monat,$tag),
    Day_of_Week_to_Text($dow),
    $n);