#!/usr/bin/perl use strict; use warnings; use Pod::Usage; pod2usage(-verbose => 1, -exitval => 1); 1; __END__ =head1 NAME mysql2dia =head1 SYNOPSIS mysql2dia =head1 OPTIONS =over 8 =item B<--help> Generate this usage message and exit. =back =cut