while($receive=<F>)
{
    if($receive eq "\n")
    {
        last;
    }
    print AUDIO $receive; 
}