1#!perl 2use strict; 3use warnings; 4use Pod::Tidy 0.10; 5 6# Reformat pod using Pod::Tidy 7 8my $filename = shift || die "Usage podtidy [filename]"; 9 10Pod::Tidy::tidy_files( 11 files => [$filename], 12 verbose => 1, 13 inplace => 1, 14 nobackup => 1, 15 columns => 72, # 72 is what fmt defaults to 16); 17