################## # Server my $id = 0; while (1) { # do mysql query: "SELECT FROM msgs WHERE id>?", $id for my $msg ($results_of_mysql_query) { # do something with this line of data } sleep 1; } ################## # Client: while () { chomp; # do mysql insert: "INSERT INTO msgs VALUES(?,?)", '', $_; } #### ################## # Server: open my $msgs, "| tail -f data.txt" or die "ouch: $!"; while (<$msgs>) { # do something with this line of data } ################## # Client: use Fcntl ':flock'; while () { chomp; open my $msgs, '>>', 'data.txt' or die "ouch: $!"; flock $msgs, LOCK_EX; print( $msgs, ($_ . "\n") ); close $msgs; }