Select Code to Download

void version(char *progname, char *rcs_rev)
{
...

  fprintf(stderr,"%s version %d.%d\n",progname,major,minor);
}

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

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