#!/usr/bin/perl
# coin_x.pl
use lib qw( /Users/wolfhome/perltest/botvgh_arena ); # Was ArenaTemp;
use Translator;
use Coin;
use Xchat; # xchat ONLY!
use strict;
use warnings;

Xchat::register("coin_x", "0.5", "One shot coin testing.");

Xchat::command("say " . Coin::flip(5)); # Undefined subroutine &Coin::flip (huh?)