use strict;
no strict 'refs';
use DBI;
use POSIX;
use sigtrap qw(handler terminate_receive normal-signals);
use Compress::Zlib;
use IO::Socket;

my $mypath = "/usr/local";
require $mypath."/news-types.pl";
use vars qw(@NewsType);

use News;

...


for (my $i=1; $i<=$#NewsType; $i++)
{
    my $news;
    if($NewsType[$i][3])
    {
        ...
    }
}



# Das Modul mit den Funktionen (News.pm):

package News;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(sendnews receivenews);

use strict;
use warnings;

sub sendnews
{
    ...
}

sub receivenews
{
    ...
}


# Die Newsarten (news-types.pl):

use vars (@NewsType);
$NewsType[0]=['NewsData','News','receivenews','sendnews'];