$dd = int(substr($date,6,2));

##</code><code>##

my $line = <DATA>;
($yyyy,$mm) = $line =~ /\.(\d{4})(\d\d)/;
$cal = new HTML::CalendarMonthSimple('month'=>$mm,'year'=>$yyyy);

do {
   chomp $line;
   ($file, $date) = split('\.', $line);
   $dd = int(substr($date,6,2));
   $cal->setdatehref($dd, "/home/trixee/cal.txt",);
} while ($line = <DATA>);

print $cal->as_HTML();