scripts: perl record window script, using ffmpeg