Select Code to Download

use warnings;
use strict;

if( $nomer_vosproizvodyshchego_protsessu=fork ){

 my $pid = fork();
    die "Fork failed\n" unless defined $pid;
...
        $| = 1;
        exec @args;
    }

  # Same thing? -- I.e. not working?
  $|=1;
  $FIFO->autoflush( 1 );

      print $FIFO 'pause';

  for( $i=0; $i<=$#svitok_na_vosproizvedenie; $i++ ){
    system( '/usr/bin/mplayer -slave -input file='.$svitok_truby.' '.$
+svitok_na_vosproizvedenie_kom[$i] );
  }

unlink $svitok_truby;

#!/usr/bin/perl
use strict;
...
END {
    unlink $svitok_truby;
}