143003dfeSmillert#!perl 243003dfeSmillertuse strict; 343003dfeSmillertuse warnings; 4*898184e3Ssthenuse Pod::Tidy 0.10; 543003dfeSmillert 643003dfeSmillert# Reformat pod using Pod::Tidy 743003dfeSmillert 843003dfeSmillertmy $filename = shift || die "Usage podtidy [filename]"; 943003dfeSmillert 1043003dfeSmillertPod::Tidy::tidy_files( 1143003dfeSmillert files => [$filename], 1243003dfeSmillert verbose => 1, 1343003dfeSmillert inplace => 1, 1443003dfeSmillert nobackup => 1, 15*898184e3Ssthen columns => 72, # 72 is what fmt defaults to 1643003dfeSmillert); 17