updatecmd_perl()
{
	local pname=$1
	local archive
	local uppver

	[[ -z ${pname} ]] && die "give me a \$PNAME"
	[[ ! -z $2 ]] && archive="$2"

	uppver=$(updatecmd "http://search.cpan.org/dist/${pname}/" | lasttarball "${archive}")

	if [[ ! -z ${UP2SUBSTITUTE} ]]
	then
		echo "${uppver}" | sed "s:${UP2SUBSTITUTE}::g"
	else
		echo "${uppver}"
	fi
}