...
require "/var/www/cgi-bin/lue.pl";

...
my @tunnukset = &lue_taulukkoon("pelaajat") || @oletustunnukset;

...
 

...
my $datatiedosto = '/home/data/tunnukset.txt';
my @data = ();

if ( (-e $datatiedosto) && (-s $datatiedosto) ) {
    if (open(DATA, "<$datatiedosto")) {
        @data = <DATA>;
        close(DATA);
    }
}

sub lue_taulukkoon {
   
    my ($osio) = @_;
    my (@taulu) = ();
    my $rivi;
    my $ok = 0;
   
    if ( ($osio) && (@data > 0) ) {
       
        foreach $rivi (@data) {
           
            # Osio alkaa tästä
            if ($rivi =~ /^\[$osio\]$/) {
               $ok = 1;
            }
           
            # Osion sisältö
            elsif ( ($rivi =~ /^([A-Z\.-]+)$/i) && ($ok == 1) ) {
                push(@taulu, $1);
            }
           
            # Osio loppuu tähän
            elsif ( ($rivi =~ /^\[\/$osio\]$/) && ($ok == 1) ) {
                return @taulu;
            }
           
        }
       
    }
   
}
1;
 

my @tunnukset = lue_taulukkoon("pelaajat");
@tunnukset = @oletustunnukset unless @tunnukset;