use strict;
use warnings;
use Time::Local;
my $month = 2;
my $diff = timelocal(0,0,0,1,$month,2003-1900)-timelocal(0,0,0,1,$month-1,2003-1900);
print "Tage: ",(localtime($diff))[7];

28