1# $Id: dice,v 1.2 2007/04/12 14:54:18 drhyde Exp $
2
3use strict;
4$^W = 1;
5
6use Net::Random;
7
8my $dice = Net::Random->new(
9    src => 'fourmilab.ch',
10    min => 1,
11    max => 6
12);
13
14print "You threw [".join(", ", $dice->get(10))."]\n";
15