move fetching code to PerlTV::Fetch
check if video has already been included, before fetching it again