Perl Script/Application to manage TV show watching