use Monk;
$monk = new Monk "tilly";

$monk->blush_off();
$monk->note_external("Keep doing what you are doing.");

$monk->pat_on_back() x 10;
[download]

--
$you = new YOU;
honk() if $you->love(perl)