#!/usr/bin/perl
use Fortune;
my $fortune = Fortune->new($FORTUNE_FILE);
print $fortune->get_random_fortune();