Pod::Usage

use Pod::Usage;

pod2usage unless @ARGV;

sanitise_files(@ARGV);

exit 0;


__END__

=head1 NAME

sanitise - clean up files by removing microbes

=head1 SYNOPSIS

  sanitise <files>

=head1 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.

=head1 COPYRIGHT

Copyright 2005 Grant McLean E<lt>grantm@cpan.orgE<gt>

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

=cut

• Output:

$ ./sanitise
Usage:
      sanitise <files>