#!/usr/bin/perl

# this is broken, only works whith perl4 

dbmopen(ifdbm,"/var/spool/ifmail/ifdbm",0666);
while(($key,$val)=each %ifdbm) {
	print $key, ' = ', $val, "\n";
}
dbmclose(ifdbm);

               
