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