map {print; smtp->datasend($_)} reverse splice(@lines, -25);