Select Code to Download

use constant REVISION => eval {
    ( $_ = '$Id: mcdt.pl 2081 2006-08-25 16:16:27Z tomte $' ) =~
      s/\$Id: mcdt.pl (\d+) .*/$1/;
    $_;
};