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