use Flog;

my $horse = new Flog;
my $topic = "dead";
$horse->flog while ($topic);