Cool++ (also could have used that and probably will). Related is a trick I picked up for -pi style edits: in-place edit preserving file modification times.

my $horn = Shame->new('none'); $horn->toot;