MTA expects $/ to be "\n" and if that global variable is set to anything
else before running TipJar::MTA::once you will get very odd results, so
be aware of that.
if your program sets $/, you should do
{
local $/ = chr(10);
TipJar::MTA::once
}
or the equivalent.