package Example;

    use strict;
    use vars qw($VERSION);

    # pull $VERSION from RCS version identifier
    ($VERSION = substr(q$Revision: 0.7 $, 10)) =~ s/\s+$//;

    sub Version {return $VERSION;}

    use Carp;