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

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

use PDAScraper::Slate;
my $Slate_Scraper = PDAScraper->new('PDA­Scraper::Slate') 
|| die "$!";
$Slate_Scraper->scra­pe();

use PDAScraper::NewScien­tist;
my $NS_Scraper = PDAScraper->new('PDA­Scraper::NewScientis­t') 
|| die "$!";
$NS_Scraper->scrape(­);

##</code><code>##

use PDAScraper qw( YahooTV Slate NewScientist );