my $dsn = "dbi:$platform:$database:$host:$port";
my $connect = DBI->connect($dsn, $user, $pw)
	or die "DB connect failed: $DBI::errstr";

my $query_handle = $connect->prepare(q{SELECT count(episode) from shows where episode=?});

foreach my $k (@shows_array) {
	my ($show_id, $title, $next_episode) = split /\|/, $k;

	$query_handle->execute($next_episode) or die $connect->errstr;

	$query_handle->bind_columns(\my $episode);

	if($episode eq "0") {
		my $get_file = "$url$title $next_episode&catid=$catid&num=$num&age=$age&username=$username&$apikey";
		push @nzb_list, $get_file;
	}
}

print @nzb_list;