sub readPackage
{
    my $filename = shift;

    open FILE, $filename || die "cannot open $filename\n";
    local $/ = undef;
    my $file = <FILE>;
    close(FILE);
    
    $file ||= '';

    while(
        $file =~
        m/^[^\n]*(FUNCTION|PROCEDURE)(.*?)IS/msgi
    )
    {
        my ($type, $declaration) = ($1, $2);
        print "$1 $2;\n\n";
    }
}

##</code><code>##

    my @procedures = 
        ( $file =~
        m/^[^\n]*(FUNCTION|PROCEDURE)(.*?)IS/msgi )