Help for this page

Select Code to Download

Select or download this

use strict;
use Pod::Usage;
...
 
## Check for too many filenames
pod2usage("$0: Too many files given.\n")  if (@ARGV > 1);