#!/usr/unsupported/bin/perl
dbmopen(ALIAS,"/etc/aliases",0444);

while (($key,$val) = each %ALIAS) {
    if($val =~ /eichin/) { print "$key: $val\n"; }
}

dbmclose(ALIAS);