Options:
--service, -s pgsql service
+ --progress, -p show progress bar
--debug, -d debugging level (Default 0)
--help, -h display this help
--man, -m display manual
=item B<--progress,-p>
+Show a progress bar
+
=item B<--debug, -d>
Debug verbosity. (Default 0)
GetOptions(\%options,
'service|s=s',
- 'progress|p',
+ 'progress|p!',
'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};