foo

sub description($)
{
        my $filename = shift;
        my $descr = "none";
        my $io = new IO::File $filename, "r";
        if (defined $io) {
                my $script;
                $script .= $_ foreach ($io->getlines);
                my $start;
                my $stop;
                $start = index($script, '%IRSSI = ');
                $stop = index($script, ');', $start+1);
                my $line = substr($script, $start, $stop-$start+2);
                no strict 'vars';
                my %foo = eval "$line";
                $descr = $foo{description};
                return $descr;
        }
        return $descr;
}

sub version($)
{
        my $filename = shift;
        my $version = "0.0";
        my $io = new IO::File $filename, "r";
        if (defined $io) {
                my $script;
                $ script .= $_ foreach ($io->getlines);
                my ($start,$stop);
                $start = index($script, '$VERSION =');
                $stop = index($script, ';', $start+1);
                my $line = substr($script, $start, $stop-$start+2);
                no strict 'vars';
                my $foo = eval "$line";
                $version = $foo;
                return $version;
        }
        return $version;
}