Help for this page
#!/usr/bin/perl -w package Text::Break; ... } 1;
#!/usr/bin/perl -w use strict; ... my @arr = <>; $tb->break(\@arr);