Select Code to Download

my $pid = open(MP, " | mplayer @options  -v 3 -  ");
...
   close FH;
   print MP $buf;

       open( FH, "< z.mpg" );
        while ( sysread FH, my $data, 32678 ) {
...
               else{syswrite MP, $data;}
        }
     ENDP: