...
BEGIN { $Time::Format::NOXS=1; }
use Time::Format;
...