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