use Text::Wrap qw( wrap );

local $Text::Wrap::columns = 80;
print wrap('', '', <IN>);