#!/usr/local/bin/perl -w

use HTML::CalendarMonthSimple;
use strict;

use vars qw($cal $file $date $mm $dd $yyyy);
 
while (my $line = <DATA  >) {
chomp $line;
($file, $date) = split('\.', $line);

$mm = substr($date,4,2);
$dd = substr($date,6,2);
$yyyy = substr($date,0,4);

$cal = new HTML::CalendarMonthSimple('month'=>$mm,'year'=>$yyyy);
$cal->setdatehref($dd, "/home/trixee/cal.txt",);

}

print $cal->as_HTML();

__DATA__
file1.20020801
file2.20020802
file3.20020803