use Text::Wrap;
$Text::Wrap::columns = 80;
# and continue as above...