#!/usr/bin/perl

IRC::register("Random Fortune", "0.2", "", "");
IRC::print "Loading Random Fortune script by SlackDeb";
IRC::add_command_handler("fortune","accion");

sub accion
{
    my $random = `fortune`;
    IRC::command("/me RandomFortune: ". $random ." ");
    return 1;
}