my perl scripts to do stuff with sagetv