Help for this page

Select Code to Download

Select or download this

my $REVISION      = '$Id: pod-usage,v 1.79 2006/01/07 23:23:12 steve E
+xp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;