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