Select Code to Download

RCS file: /usr/local/cvs/scripts/myFile.pl,v
...
put this in the cvs repository
and comment the cvs
======================================================================
+=======

#!/usr/bin/perl -w
use strict;
...

# return the user to his scheduled dir
chdir $currentDir or die "Could not change to $currentDir because: $!\
+n";

$ver = $1, $date = $2, $coder = $3
if(m!\Arevision\s(\d+\.\d+)$
    ^date:\s(\d{4}/\d{2}/\d{2})\s[\d|:]+;\s+author:\s+(\w+);
    [\w|\s|:|;|\d|\+|-]+\Z!mx);