$VERSION = sprintf("%d.%2d", q$Revision$ =~ /(\d+)\.(\d+)/);

##</code><code>##

$VERSION = sprintf("%d.%2d", q$Name$ =~ /(\d+)_(\d+)/);