#!/bin/bash
# usage: perlsyno [-e] CPAN::Module

function syno {

perldoc -tT $1 |\
perl -0777 -ne 'print /^SYNOPSIS(.*?)^\w/ms;'|\
perltidy -i 0

}

[ $# -gt  0 ] || exit 1

if [ "$1" = "-e" ]
then
    shift
    [ $# -gt  0 ] || exit 1
    syno $1 | perl -0777 -ne 'eval $_'
    exit 0
fi

syno $1