or download this
> perl -wle "package VersionTest; use vars qw($VERSION); $VERSION=666;
+ package main; print VersionTest->VERSION(666); print VersionTest->VE
+RSION(667);"
666
VersionTest verion 667 required--this is only version 666 at -e line 1
+.