Select Code to Download

   use strict;
   use warnings;
...
   $cal->width('50%');
   $cal->border(10);   
   print $cal->as_HTML;

    use strict;
    use warnings;
...
     $cal->item($_)->wrap_content(a({href => 'http://mysite/cal/index'
+.$year.$month. $_ .".html"}));
  }
     print $cal->as_HTML;