:
eval 'exec perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
##
##  summary -- Display a summary of the latest changes
##

$changelog = $ARGV[0];
open(CL, "<$changelog") || die;
$changes = '';
$changes .= $_ while (<CL>);
close(CL);

$changes =~ s|^.+?\n(\s*Changes between)|$1|s;
$changes =~ s|(Changes between.*?\n)\s*Changes between.*|$1|s;
$changes =~ s/\n(\s*\*\)\s*.+?):\s*\n.+?(?=\n\s*\*\)\s*|$)/$1/sg;
$changes .= "\n";

print $changes;