Help for this page

Select Code to Download

Select or download this
```
$dd = int(substr($date,6,2));
```

Select or download this

my $line = <DATA>;
($yyyy,$mm) = $line =~ /\.(\d{4})(\d\d)/;
...
} while ($line = <DATA>);

print $cal->as_HTML();