Help for this page

Select Code to Download

Select or download this

use Getopt::Long;
use Pod::Usage;
...
        ) {pod2usage(-verbose => 1)}

if (defined $par_help){pod2usage(-verbose => 1)}