#!/usr/bin/perl

use lib qw( /Users/wolfhome/perltest/botvgh_arena ); # Was ArenaTemp;
use Translator;
use Coin;
use Xchat qw(:all); # xchat ONLY!
use strict;
use warnings;

&Coin::flip(5); # Undefined subroutine &Coin::flip (huh?)

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