Example Perl Module for brian d foys PAUSE workshop