sub adresse_get_next {
    print "Neue Adresse wird gezogen:\n";
    my $dateiname = "/home/htdocs/files/adress.txt";
        open(DATEI, '<'.$dateiname) or die "Kann $dateiname nicht öffnen";
        while(<DATEI>)
        {
            my $zeile = chomp($_);
            # was nun??????????????????????
        }
        close(DATEI);
    return "Hier soll die Adresse übergeben werden";
}