#!/usr/bin/perl
use lib 'lib';
use FactStudio;
use Time::localtime;

my $date = $ARGV[0];

unless ($date) {
	$tm = localtime;
	$date = ($tm->year + 1900)."/".$tm->mon."/".$tm->mday;
 }

#FactStudio::get_screenshot_headlines($date);

FactStudio::build_talkshow($date);