my $FIFO=undef;

mkfifo( $svitok_truby, 0700 ) || die 'Ошибка создания трубы  '.$svitok_truby.'  : '.$!;
local $SIG{CHLD} = "IGNORE";

if( $nomer_vosproizvodyshchego_protsessu=fork ){

  $|=1;
  open( $FIFO, '>', $svitok_truby ) || die 'Не открыть трубу '.$svitok_truby.' на запись : '.$!;

  <sniped>

  print $FIFO 'pause';

  <sniped>

}else{

  exec '/usr/bin/mplayer -slave -input file='.$svitok_truby.' /tmp/1.flac';

}

close( $FIFO );
unlink $svitok_truby;