yakiniku.pl

package karupanerura;
# is me!

package main;
use strict;
use warnings;

use Meat;
use Beef;
use Hormones;
use Grill;

use List::MoreUtils qw/shuffle/;
my @menu = qw/Meat Beef Hormones/;

until (karupanerura->is_full) {
    my $namaniku = [suffle(@menu)]->[0]->new;
    my $yakiniku = Grill->run(namaniku => $namaniku);

    karupanerura->eat($yakiniku);
}

exit('yakiniku');