my $punishment = new punisher();
while (idiot) {
$punishment->slap (
-forehead => hard
);
}
[download]

Thanks Khen. I thought that the examples were all included on the main page. I turns out that I also figured out that the function get_table returned what I wanted. The example you provided has lots of arguments and some decent checks.