A Perl 6 script to write out the days of each month with weekday, month-day and month name. Defaulting to

month.pl

#! /usr/local/bin/nom

constant last-month = Date.today.delta(-1, month);

sub MAIN($year = last-month.year, $month = last-month.month) {
    my @weekdays = < _ Mån Tis Ons Tors Fre Lör Sön> X~ 'dag';
    my @months = < _
        januari februari mars april
        maj juni juli augusti
        september oktober november december
    >;

    sub mday($day) { Date.new: $year, $month, $day }
    my $first = mday 1;
    my $last  = mday $first.days-in-month;

    my $monthname = @months[$first.month];

    for $first .. $last {
        my $weekday = @weekdays[.day-of-week];
        my $monthday = .day-of-month;
        say "$weekday $monthday $monthname";
    }
}

output

$ month 
Fredag 1 februari
Lördag 2 februari
Söndag 3 februari
Måndag 4 februari
Tisdag 5 februari
Onsdag 6 februari
Torsdag 7 februari
Fredag 8 februari
Lördag 9 februari
Söndag 10 februari
Måndag 11 februari
Tisdag 12 februari
Onsdag 13 februari
Torsdag 14 februari
Fredag 15 februari
Lördag 16 februari
Söndag 17 februari
Måndag 18 februari
Tisdag 19 februari
Onsdag 20 februari
Torsdag 21 februari
Fredag 22 februari
Lördag 23 februari
Söndag 24 februari
Måndag 25 februari
Tisdag 26 februari
Onsdag 27 februari
Torsdag 28 februari

$ month 2010 01
Fredag 1 januari
Lördag 2 januari
Söndag 3 januari
Måndag 4 januari
Tisdag 5 januari
Onsdag 6 januari
Torsdag 7 januari
Fredag 8 januari
Lördag 9 januari
Söndag 10 januari
Måndag 11 januari
Tisdag 12 januari
Onsdag 13 januari
Torsdag 14 januari
Fredag 15 januari
Lördag 16 januari
Söndag 17 januari
Måndag 18 januari
Tisdag 19 januari
Onsdag 20 januari
Torsdag 21 januari
Fredag 22 januari
Lördag 23 januari
Söndag 24 januari
Måndag 25 januari
Tisdag 26 januari
Onsdag 27 januari
Torsdag 28 januari
Fredag 29 januari
Lördag 30 januari
Söndag 31 januari