Calendar widget for Perl-GTK?

[Steve Manes <gtk magpie com>]

I've seen GTK popup/dialog calendar date pickers for PyGtk and PHP-Gtk 
like this:

http://www.kksou.com/php-gtk2/articles/setup-a-pulldown-calendar-for-date-selection.php

Are there any third-party calendar widgets like this available for Perl-GTK?

I can port the PHP widget, above, to Perl if necessary but if somebody's 
already done it, I can be lazy too.