#!/usr/bin/perl
use warnings;
use strict;

use Date::Calc qw ( Monday_of_Week Add_Delta_Days );

sub weekToDays {
    my $week = shift;
    my $year = shift;

    my ($year2, $month, $day) = Monday_of_Week($week, $year);

    my ($y, $m, $d) = Add_Delta_Days( Monday_of_Week($week, $year), 6); # Not $year2 here!

    return "$day/$month/$year2 to $d/$m/$y";
}
print "First week of 2013: ".weekToDays ( 1, 2013) ."\n" ;
print "Second week of 2013: ".weekToDays ( 2, 2013) ."\n" ;