# build up a buffer
sysread(CLIENT, $read_buffer, 2048);
syswrite(AUDIO_OUT, $read_buffer);

# with buffer established, stream as usual
while ( sysread(CLIENT, $read_buffer, 512) ) {
    $buffer .= $read_buffer;
    syswrite( AUDIO_OUT, $buffer, 512);

##</code><code>##

my $child_pid;
if ( not defined($child_pid = fork()) ) {
    die "cannot fork: $!";
} elsif ($child_pid) {
    # I'm the parent
    # keep reading the stream
    while ( sysread(CLIENT, $read_buffer, 512) ) {
        $buffer .= $read_buffer;
        print ".";
    }
} else {
    # I'm the child
    # with buffer established, stream as usual
    while ( $buffer ) {
        syswrite( AUDIO_OUT, $buffer, 512);
        print "-";
    }
    exit;
}
waitpid($child_pid, 0);