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

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


##</code><code>##

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