use POSIX qw( mkfifo );

mkfifo( $svitok_truby, 0700 ) || die $svitok_truby.' : '.$!;

if( $nomer_vosproizvodyshchego_protsessu=fork ){
	# forces a flush right away and after every write or print on the currently selected output channel.
	$|=1;

	system( '/bin/echo \'seek -10\' >'.$svitok_truby );
}else{
	system( '/usr/bin/mplayer -slave -input file='.$svitok_truby.' /tmp/1.flac' );
}