1 2 3 4 5 6 7 8
#!/usr/bin/env perl use strict; use warnings; use Pod::Man; Pod::Man->new(release => 1, section => 1)->parse_from_file(@ARGV[0 .. 1]);