add Perl TV