here is that pm from a ubuntu box. it just exports some variables to whatever 'use's it. you might have to modify it some. haven't looked much into it. maybe look at the program you're trying to get working and see what it's expecting and modify this to suit those needs. also, if you don't know perl, that '1;' needs to be there:
root@shawn-desktop:/etc/apache2# cat /usr/share/perl5/Dpkg.pm
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <
http://www.gnu.org/licenses/>.
package Dpkg;
use strict;
use warnings;
# This module is the only one provided by dpkg and not dpkg-dev
#
# Don't add things here if you don't need them in dpkg itself.
# If you do, and also use the new stuff in dpkg-dev, you'll have to bump
# the dependency of dpkg-dev on dpkg.
use base qw(Exporter);
our @EXPORT = qw($version $progname $admindir $dpkglibdir $pkgdatadir);
our ($progname) = $0 =~ m#(?:.*/)?([^/]*)#;
# The following lines are automatically fixed at install time
our $version="1.15.5.6ubuntu2";
our $admindir="/var/lib/dpkg";
our $dpkglibdir="/usr/lib/dpkg";
our $pkgdatadir="/usr/share/dpkg";
$pkgdatadir = $ENV{DPKG_DATADIR} if defined $ENV{DPKG_DATADIR};
1;