#!/bin/perl5 -w

use strict;
use Chaffe;

my $c = new Chaffe;
$c->secret('gee, whiz');
$c->noise(4);

my $str = "892066923 info.load.fifteen Two hour load avg (*DROP*): 2.99033333333333";

print "$str\n";
my $chaffe = $c->chaffe($str);

#print $chaffe;
my $text = $c->winnow($chaffe);
print "$text\n";

# EOF