Select Code to Download

#!/usr/local/bin/perl -w
# UDP Server gets mysql_data from mysql or a file
# receives request from client
...

} die "recv: $!";

#!/usr/bin/perl

use strict;
...
    
    close(FILE);
} ## fill_empfang_file ##############

Hallo kleine Welten 
Hallo grosse Welt 
...
es geht loser
neue Zeilenn
naechste Nummernn

#!/usr/bin/perl

use Tk;
...
    
} ## fill_with_tie #################        
############################################################

#!/usr/bin/perl

...
        
} ## refresh_list
######################################