Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 9 lines (6 sloc) 175 Bytes
#!/usr/bin/perl -w
use Text::Wrap;
use strict;
$Text::Wrap::columns = shift(@ARGV) || 72;
$Text::Wrap::huge = "overflow";
print wrap('', '', join(' ', map {chomp; $_} <>));