A perl script to salvage "almost deleted" flv files under linux