#!/usr/bin/perl
use strict;
use warnings;
use PDAScraper;

use PDAScraper::YahooTV;
my $YM_Scraper = PDAScraper->new('PDAScraper::YahooTV') 
|| die "$!";
$YM_Scraper->scrape();

use PDAScraper::Slate;
my $Slate_Scraper = PDAScraper->new('PDAScraper::Slate') 
|| die "$!";
$Slate_Scraper->scrape();

use PDAScraper::NewScientist;
my $NS_Scraper = PDAScraper->new('PDAScraper::NewScientist') 
|| die "$!";
$NS_Scraper->scrape();