use Text::Wrap;

$Text::Wrap::columns = 80;

# Modified print()
sub output {
 my $text = shift;
 my $wrapped = wrap('', '', $text);
 $wrapped =~ s/\n/\r\n/g;
 print $wrapped;
}