in reply to script heading

If you want to add a $VERSION variable to your script or package you could use something like this:

use vars qw($VERSION); $VERSION = sprintf "%d.%03d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/;
When you check this out with RCS, the string between q$ $ will get updated with the RCS version, and the regexp will update your $VERSION variable.


What time is it? It's Camel Time!