Indeed, Pod::Usage is what you want. My scripts generally use that and Getopt::Long (see PodMaster's link), and start out with the following incantation:

GetOptions(
    'h|help'  => sub { pod2usage( -verbose => 1 ) },
    'man'     => sub { pod2usage( -verbose => 2 ) },
    # ...
) or pod2usage();
[download]