-----------------8<---------8<------------------ #!/usr/bin/perl -w # vim:ft=perl:ts=4:sw=4:et:is:hls:ss=10: use strict; use warnings; use Pod::Usage; # pod2usage( -exitval => 1, -output => \*STDERR ); pod2usage( -exitval => 1, -output => \*STDOUT ); =head1 NAME burble burble =head1 SYNOPSIS asdf asdf adsf asdf asdf =cut -----------------8<---------8<------------------