#!/usr/bin/perl -w

use DB_File;

$dbfile = "/usr/src/poprelayd-KAM/aliases.db";

tie(%ALIASES, "DB_File", $dbfile, O_RDONLY, 0, $DB_HASH)
  or die "Can't open aliases: $!\n";

while (($key,$val) = each %ALIASES) {
    print $key, ' = ', $val, "\n";
}
untie %ALIASES;

exit;