sub gimme_tvdb_blah {
    use Web::Query;
    use Web::Magic;
    use Web::Scraper;
    my $object = ... ; ## xpatish data extraction using magic above
    return $object;
}