sub version {
  my ($progname, $rcs_rev) = (@_);

  if($rcs_rev !~ /:/) {
    print "$progname, no RCS version given.\n";
    return;
  }

  $rcs_rev =~ /Revision: (\d+)\.(\d+)/;
  my ($major, $minor) = ($1, $2);

  print "$progname version $major.$minor\n";
}