Getopt::Std + Pod::Usage (cont)

• Extended output:

$ ./sanitise -?

NAME
    sanitise - clean up files by removing microbes

SYNOPSIS
      sanitise [options] <files>

      Options:

       -c     clean files
       -s     shine files
       -f x   select fragrance (x = pine, meadow or toast)
       -?     detailed help message

DESCRIPTION
    This imaginary script strikes with the power of liquid
    lightning to sanitise your files by removing unwanted
    microbes. Use strictly as directed. Conditions apply.

OPTIONS
    -c  Enable the cleaning mode.

    -s  Enable the shining mode. (Note these options can be
        combined for the ultimate clean and shine).

    -f fragrance
        Select the desired fragrance. Accepted values are
        'pine', 'meadow' and 'toast'. The default is 'toast'.

    -?  Display this documentation.

COPYRIGHT
    Copyright 2005 Grant McLean <grantm@cpan.org>

    This library is free software; you can redistribute it
    and/or modify it under the same terms as Perl itself.
--More--