Contents of /bin/last_version

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