Perl scripts to rip some web streams