fold: Wrap input lines to fit in specified width

$cat test.pl
use strict;
use File::Rename ();
use Pod::Usage;

main() unless caller;

sub main {
    my $options = File::Rename::Options::GetOptions
        or pod2usage;

    mod_version() if $options->{show_version};
    pod2usage( -verbose => 2 ) if $options->{show_manual};
    pod2usage( -exitval => 1 ) if $options->{show_help};

    @ARGV = map {glob} @ARGV if $^O =~ m{Win}msx;

    File::Rename::rename(\@ARGV, $options);
}

sub mod_version {
    print __FILE__ .
	' using File::Rename version '.
        $File::Rename::VERSION ."\n\n";
    exit 0
}   

1;

__END__

$

$fold  -w 10 -b  test.pl > part1.txt
$fold  -w 10   test.pl > part2.txt
$diff -u part1.txt part2.txt 
--- part1.txt	2018-03-15 22:50:38.084905051 +0530
+++ part2.txt	2018-03-15 22:50:48.768963638 +0530
@@ -55,10 +55,10 @@
 rsion {
     print 
 __FILE__ .
-	' using F
-ile::Renam
-e version 
-'.
+	' 
+using File
+::Rename v
+ersion '.
         $F
 ile::Renam
 e::VERSION