1use Pod::Usage; 2use strict; 3use warnings; 4 5pod2usage(-verbose => 2, -exit => 17, -input => \*DATA); 6 7__DATA__ 8=head1 NAME 9 10Test 11 12=head1 SYNOPSIS 13 14perl podusagetest.pl 15 16=head1 DESCRIPTION 17 18This is a test. 19 20=cut 21 22