#!/bin/perl5 -w

use strict;
use Chaffe;

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

open(WOW, ">wow.cfe") or die "Cannot open: $!\n";

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

print "$str\n";
$c->chaffe($str, \*WOW);
close(WOW);

open(WOW, "< wow.cfe") or die "Cannot open: $!\n";
my $text = $c->winnow_from_fh(\*WOW);
print "$text\n";

# EOF