#!/bin/bash

	local perl_updater=$(cat <<'EOF'
...
EOF
)
	perl -E "$perl_updater" $DBFILE $UPDFILE $2