random topic generator for blogging

topic-generator.pl

#!/usr/bin/perl

my $topicdb = 'topic.txt';
open(my $db, '<', $topicdb) or die $!;

my $count = 0;
my %topic;

while(<$db>){
	if($_ =~ "^--"){
		$count++;
	} else {
		$topic{$count} = $topic{$count} . $_;
	}	
}

close($db);

$luckyone = int(rand($count));

print STDOUT $topic{$luckyone+1};
exit 1;