$ perl -MCGI -le 'print CGI->VERSION' # prints:  3.04

##</code><code>##

# $Id: cpan,v 1.5 2005/12/24 00:59:08 comdog Exp $

##</code><code>##

my $VERSION =
	sprintf "%d.%02d", q$Revision: 296 $ =~ m/ (\d+) \. (\d+) /xg;