my $pid = open(MP, " | mplayer @options  -v 3 -  ");

   open (FH,"< z.mpg");
   read( FH, my $buf, -s FH );
   close FH;
   print MP $buf;