sub WordWrap {
    my ($text) = @_;
    $text =~ s!(\S{20})(\S)!$1 $2!g;
   return $text;
}