*************** *** 8,13 **** my $dbg = $ENV{DEBUG}; my $days = shift || 5; my $conn = Blog::DBI->connect() or die "$!"; my $update_sql = qq[ --- 8,15 ---- my $dbg = $ENV{DEBUG}; my $days = shift || 5; + my $blog = shift || undef; + my $conn = Blog::DBI->connect() or die "$!"; my $update_sql = qq[