use Acme::Tasseography;

my $at = Acme::Tasseography->new(<<ISSUE);
oooh... 2 inputs files
oooh... of size 16gb & 800mb
oooh... 4 hashes
ooohh...
oooooohhhh... around 500mb
oooooooooohhhh... it stucks
ISSUE

say $at->tell_fortune;