Annotation of /bin/last_version

#!/usr/local/bin/perl
use strict;
use FileHandle;

    my $cl = new FileHandle $ARGV[0], "r" or die("Do not see ChangeLog");
    my $inlog;
    while(<$cl>){
     if(/^Version/){
      if(not defined $inlog){
        $inlog++;
      } else {
        last;
      }
     }
    print if(defined $inlog);
    }
    $cl->close();
    
1	ccflib	1.1	#!/usr/local/bin/perl
2			use strict;
3			use FileHandle;
4
5			my $cl = new FileHandle $ARGV[0], "r" or die("Do not see ChangeLog");
6			my $inlog;
7			while(<$cl>){
8			if(/^Version/){
9			if(not defined $inlog){
10			$inlog++;
11			} else {
12			last;
13			}
14			}
15			print if(defined $inlog);
16			}
17			$cl->close();
18