package Boo; use strict; use vars qw($VERSION); $VERSION = sprintf("%d.%02d", q$Revision: 1.35 $ =~ /(\d+)\.(\d+)/); 1;