perl scripts to extract bitrates and PSNR